Mega Code Archive

 

Categories / Perl / Regular Expression

 

Evaluate replacement

$str = "He gave me 5 dollars.\n"; s/5/6*7/e;  print $str;