in reply to How to get correct regex

Seems like a job for ... Text::CSV(_XS)!

Replies are listed 'Best First'.
Re^2: How to get correct regex
by Anonymous Monk on Jan 13, 2015 at 13:20 UTC

    ... or if OP does insist on a regex, split can use one ...

    ( $no, $p , $dev , $percent , $name ) = split /\s+/ , $line , 5