Regular Expression Perl

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