use Regexp::Common; my @split = $line =~ /$RE{num}{real}/g;