if($line =~ /([^:]+):([^:]+):([^:]+)/) { 

    @fields = ($1,$2,$3) 

} else { print "Regex Error on $line\n" }