perl -e "my $str='@bar'; if ($str =~ /^@/){ print \"No need to escape the \@ in a regex\";}"
No need to escape the @ in a regex