in reply to Re: Adding formatting to a string
in thread Adding formatting to a string

Even simpler:
substr($string,4,0,"-")