print "MATCH\n" if ($string =~ m/LAST$ ..? ^LINE/xms) ;