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