($newstring = $oldstring) =~ s/456/ 456-/;