DB<4> $_ = ":) cat :)"

  DB<5> s/\b/^/g        

  DB<6> x $_            
0  ':) ^cat^ :)'