use strict;
use warnings;

my $seq='ACGGGAGGACGGGAAAATTACTACGGCATTAGC';
my $rev='';
$rev = "$_$rev" for map chr($_&2?$_^4:$_^21), map ord, split//,$seq;
print "$seq\n$rev\n";