Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: contextual substitution with s///?

by choroba (Chancellor)
on Feb 01, 2013 at 16:13 UTC ( #1016575=note: print w/replies, xml ) Need Help??


in reply to contextual substitution with s///?

Capture what should remain, not what should change:
$s = "test string x x\nFeb 1 09:12:33 ("; $s =~ s/^(\w{3}) /$1 /m;
Also note that if you are matching multiline string, the /m modifier is needed to match after a newline.
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ