in reply to Use Regular Expression to add spaces to a string

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

[download]

In Section Seekers of Perl Wisdom