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] ) [download]