As LanX said, you haven't really given enough information to go on. Please see How do I post a question effectively?, I know what I mean. Why don't you?, and Short, Self-Contained, Correct Example.
My guess would be that it has something to do with $_ = (/(.)\1/), since that doesn't entirely make sense to me. It's the equivalent of $_ = ($_ =~ /(.)\1/), that is, you're matching the regular expression against $_ and then assigning the return value of the match back to $_. Similarly, if you wrote $selection = (/(.)\1/), then that is implicitly matching the regular expression against $_ and assigning the return value of the match to $selection. You probably meant to write $selection =~ /(.)\1/ instead.
In reply to Re: Why does default $_ only work
by haukex
in thread Why does default $_ only work
by catfish1116
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |