Spot on. As an addendum, How to RTFM adresses the same issue. Some may find it a most useful reference to references.

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