$string =~ /^(\d+:\d+:\d+):/; $result = $1;