$_,s=*$<
gsub(/./){s.scan$`+$&
$><<"#$`[#$&]#$'"}