if ( $line =~ m/(match me)/g ) {
# 
}