in reply to RegEx needed
foreach (@data) { ($1, $2, $3, $4, $5) = m/($_\s)/g; print $2; } [download]
m/(\S+\s)(\S+\s)(\S+\s)(\S+\s)(\S+\s)/; [download]
$_ =~ m//g [download]