my $re = qr/(.*$pat.*)/;
  while ($mmap =~ m/$re/g)
  {
    print $1,"\n";
  }