You're not the first person to have misunderstood Tk; here's my previous attempt to explain (or perhaps here, more succintly).

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