in reply to splitting lines a number of times

Just extract the numbers directly:
use Regexp::Common;

my @split = $line =~ /$RE{num}{real}/g;

[download]

In Section Seekers of Perl Wisdom