$sentence =~ s{ ( $phrases ) }{ ( my $string = $1 ) =~ tr/ /_/; "%$str +ing%" }xieg; [download]
In reply to Re: within pattern manipulation by jwkrahn in thread within pattern manipulation by newbio