use strict;

open(FILE, "<searchAndReplace.txt") or die "Error reading input file 'searchAndReplace.txt'\n";

while(my $line = <FILE>)
{
        next if($line !~ /^[0-9];/^:;/^[0-9];/^[0-9];/^ AM;/^ 	/);