in reply to Using the Substr

splitting the string at the colons and joining the first three fields seems the easiest way to me:

join( ':',(split /:/,$string)[0..2] )