I had a reply here, but the parent node will be reaped, so I removed it. It's in an HTML comment for those who really want to read it.

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