Neat. Unfortunatly, this will not run under 5.8.0, as $$ has been made read-only in that version (and maybe 5.7.0, as well -- I don't know).

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