$_,t=*$<
$><<gsub(/./){t.sub /(.*)(#$`#$&)/,'\1[\2]'}