Re^2: [Solved]Need to extract a particular block of lines between two patterns

Thank you for your javascript solution to a perl question. When I do run it in perl I get:

Bareword found where operator expected near "// state"
elseif should be elsif
syntax error near "// state "
Bareword "false" not allowed while "strict subs" in use
Bareword "false" not allowed while "strict subs" in use
Bareword "false" not allowed while "strict subs" in use
Bareword "true" not allowed while "strict subs" in use
[download]

Comment on Re^2: [Solved]Need to extract a particular block of lines between two patterns Download Code