Yeah, I know the itch that you're scratching. cperl-mode for Emacs with (setq cperl-hairy t) does much the same thing, auto inserting braces, newlines, and blocks as you type. Rather handy, expecially when you just can't wrap your mind around exactly what conditional you need, but you do know what you want the block to do -- and will forget it if you stop to think about the conditional for too long. The woes of having limited stack space in your wetware. :)

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'