use Modern::Perl;

my @patterns = qw/GAATTC CCWGG/;

while ( my $sequence = <DATA> ) {
    my @matches;
    while ( $sequence =~ m/($patterns[0]|$patterns[1])/g ) {
        for my $expr ( 1 .. $#- ) {
            push @matches, $-[$expr] .. $+[$expr] - 1;
        }
    }
    say "@matches";
}

__DATA__
GAATTCACGGATAGCCWGGTACGATGATAGATGAATTCGACTAGAATGCCWGGAAGAATgGAATTC
GAATTCACGGATAGCCWGGTACGATGATAGATGAATTCGACTAGAATGCCWGGAAGAATgGAATTC
GAATTCACGGATAGCCWGGTACGATGATAGATGAATTCGACTAGAATGCCWGGAAGAATgGAATTC