Sometimes, it is more prudent to declare a pattern with our .

Thanks to GrandFather who styled and commented the whole mess. The pattern now takes a huge space on my screen and the Perl code is mixed with typical ugly regexes. So, how do I reuse the pattern in another module; simple you say, declare it with our so the pattern is accessable from everywhere. Could we do better and avoid the our declaration? Yes, you say, declare a function that returns the regex, and all we have to do later is check for match using $_ =~ cos_pattern() . Lets declare the function:

 sub cos_pattern { $re }

You see the problem? We have inadvertently created a closure.

And how do we solve this problem: back declaring with our again:

 our $re = qr / 
....big...
...multiline...
...pattern... 
/x;
[download]