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] )
Unixish Shell Scripting languages
Other (post in comments)
Results (371 votes). Check out past polls.