in reply to Pattern Match / Replace without s/

Sonething simple like this does the job:

my $find = quotemeta 'bla.bla.bla'; while(<DATA>) { if ( m/($find\s*=\s*)(.+)/s ) { my $begin = $1; my $change = $2; $change =~ s/ /\\ /g; print $begin.$change; } else { print; } } __DATA__ # don't change me bla.bla.bla = c:/Some Windows/Path With/Spaces In/It # don't change me # don't change me # don't change me

Which will print:

# don't change me bla.bla.bla = c:/Some\ Windows/Path\ With/Spaces\ In/It # don't change me # don't change me # don't change me

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print