#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my $in_file = 'pm_11131708_in';
my $out_file = 'pm_11131708_out';

{
    open my $in_fh, '<', $in_file;
    open my $out_fh, '>', $out_file;

    while (<$in_fh>) {
        if (0 == index $_, '>') {
            print $out_fh $_;
        }
        else {
            chomp;
            my $rev = scalar reverse;
            $rev =~ y/ATGC/TACG/;
            print $out_fh "$rev\n";
        }
    }
}