I'd think about using:  &Frobnitz($_) if index $_, '@'; instead. I got this:

        Rate regexp  index
regexp 826/s     --   -10%
index  921/s    11%     --

with Benchmark. Why throw the regex engine at a single character when there is lovely little function just for that? =)