[bmn_]

Use named captures or list assignment. $1 $2 etc are already a code smell in Perl 5. Action-at-a-distance is the enemy.

[nikatwork]

That's needlessly verbose if I am descoping $1 within a line or two. I agree one must be careful.