foreach (@data) { ($1, $2, $3, $4, $5) = m/($_\s)/g; print $2; }