while ($mmap =~ m/^([^\n]*$pat[^\n]\n)/omg)
{
  print $1;
}