$_,a=*$<;$><<gsub(/./){a.sub$`+$&,'[\&]'}