my $regexp = "..g.{18}c";
my @antisense_oligos;
$_ = $input_seq;
do{
    push @antisense_oligos, $1 if (m/^($regexp)/)
} while ( s/^.// );
$,="\n";
print @antisense_oligos;