( my $new = reverse $string ) =~ tr/atgc\0-\277/tacg/d;
print "$new\n";