Select Code to Download

#!/usr/bin/env perl

...
int main(int argc, char** argv)

/* END */

$ pm_multi_line_match.pl
Match found on line 3
Match found on line 6

    print "Match found on line ",
            split(/\n/, substr $text, 0, pos $text) - split(/\n/, ${^M
+ATCH}) + 1,
            "\n";