himik:

I'm guessing that it's because you're calling the m operator in list context rather than scalar context. Perhaps it would work if you try:

TestIt($a1, $a2, scalar($a3=~m/2/), $a4);
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.