if ($string =~ m/@a/) {

##</code><code>##

Possible unintended interpolation of @a in string at ./y.pl line 7.