Re^2: How to get correct regex

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

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

Comment on Re^2: How to get correct regex Download Code