use 5.010; given ($sentence) { s/ / /g; s/(^| )($phrases_re)( |$)/$1#$2#$3/g; s/ / /g; }