#!/usr/bin/perl
use 5.016;
use warnings;

# 1075463

my $seq="ACGGGAGGACGGGAAAATTACTACGGCATTAGC";
say "Initial \$seq is: $seq";

say "Reverse sequence is: " . reverse($seq);


my @seq = split(/\b/, $seq);
my $comp; 
while (@seq) {
    $comp .= pop(@seq);
}
print "Complement is: $comp\n";

my $reverse = reverse($comp);
print "Reverse complement is:$reverse\n";


=head  OUTPUT:

Initial $seq is: ACGGGAGGACGGGAAAATTACTACGGCATTAGC
Reverse sequence is: CGATTACGGCATCATTAAAAGGGCAGGAGGGCA
Complement is: ACGGGAGGACGGGAAAATTACTACGGCATTAGC       # per OP's use, I think
Reverse complement is:CGATTACGGCATCATTAAAAGGGCAGGAGGGCA

=cut