Perl code - 3 lines

Link:

Perl, pasted on May 5:

1
2
3

$type = "DNA" if $line =~ m/[ATCG]+/;
$type = "RNA" if $line =~ m/[AUCG]+/;
$type = "AC" if $line =~ m/[ARNDCEQGHILKMFPSTWYVBZJX]+/;

Output:
No errors or program output.