while ( $mmap =~ /^(.*\n)/mg ) {
    my $line = $1;
    print $line if $line =~ /$pat/;
  }