Looking at your example, it looks like the fields are in fact tab delimited (\t). Have you tried splitting on "\t" ?

Otherwise, it would seem to me that you need to match on known entities. Something like:

$line =~ m#^(\w+)\s+(.*?)\s+((?:Never|Last).*)#
[download]

Liz