Why did you remove the /x option? Without it, all those spaces in your regex above will have to match the test exactly, and it will fail if they do not.
Why did you remove the /s option? Without it, the regex will not work.
Why did you remove the /m option? Without it, the regex will not work.
Why did you get rid of the my $def ...? Without it, you are just making life hard for yourself.
How do you expect this (select[^\.\.]) to match everything between the select and the end of the statement?
Did you read the comments and explanations I posted? Did you make any attempt to understand them?
Honestly, if you want to do this task, you are going to have to put some effort in. I ain't going to do it all for you.
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|