How2Perl? “/$_=$^%/g for if”?

@williballenthin