$_ .= <TEST>;
    if (m{
          \w+\n
          .+
          \w+
         }msx) {
        print "reading file test: The line \n$_\nmatches.\n";
    }