Help for this page
if ($string =~ m/@a/) {
Possible unintended interpolation of @a in string at ./y.pl line 7.