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