#!perl -p
s;(.);${stop=~/[^$` ]/};g