$data = 'Sat Jun 4 05:56:00 BST 2005 INFO: PD/ZVKK Load: Starting.'; @fields = split /:+\s/, $data; # $fields[0] is 'Sat Jun 4 05:56:00 BST 2005 INFO' # etc...