in reply to Adding formatting to a string

$string=~s/(....)/$1-/s;

[download]

In Section Seekers of Perl Wisdom