Read lines from input file – print lines that match a regular expression

Nishi Singh — Tue, 10 May 2016 11:46:19 -0500

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

my $line;

#read the line-by-line for each line ask if it matches the regex print it if it matches

while($line = ){
        chomp $line;
        if ($line =~ /^ATG?C*[ATCG]+?A{3,10}$/) {
                print "$line\n";
        }
}

exit();

__DATA__
ATGCCCAA
ATGCCCAAAA
ATGCCCAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD

BOL: Read lines from input file – print lines that match a regular expression

Read lines from input file – print lines that match a regular expression