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] )
Conway's Game of Life
Perl regular expressions
My Magic 8-Ball™
Results (192 votes). Check out past polls.