$sentence =~ s{($phrases)}{ ( my $string = $1 ) =~ tr/ /_/; "%$string%" }ieg; [download]
In reply to Re^3: within pattern manipulation by ikegami in thread within pattern manipulation by newbio