language: Perl (perl 5.16.2)
date: 927 days 8 hours ago
link:
visibility: public 
1
2
3
4
5
6

$_ = 'object1:object2:object3:rest of the line';
if (/(.*):(.*):(.*):(.*)/) {
  print "$1 $2 $3 $4\n";
} else {
  print "Match failed\n";
}