Search pattern not terminated at D:\_Perl_\PMonks\1157546.pl line 7 (#1)
    (F) The lexer couldn't find the final delimiter of a // or m{}
    construct.  Remember that bracketing delimiters count nesting level.
    Missing the leading $ from a variable $m may cause this error.

    Note that since Perl 5.9.0 a // can also be the defined-or
    construct, not just the empty search pattern.  Therefore code written
    in Perl 5.9.0 or later that uses the // as the defined-or can be
    misparsed by pre-5.9.0 Perls as a non-terminated search pattern.

Uncaught exception from user code:
        Search pattern not terminated at D:\_Perl_\PMonks\1157546.pl line 7.