The only thing I do when I notice I'm in perl-mode is
M-x cperl-mode. I vaguely remember using perl-mode on a machine where cperl-mode wasn't available, as it was better than nothing, but it felt like driving with the handbrake on.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]