while ($mmap =~ m/\n?(.*$pat.*\n)/omg) {