$ perl -E 'my @x = (1,2,3); say ">@x<"'
>1 2 3<

##</code><code>##

$ perl -E 'my @x = "1.234 5.6789 -1.235" =~ /(-?\d+?\.?\d+)/g; say "@x"'
1.234 5.6789 -1.235

$ perl -E 'my @x = "1.234 5.6789-12.235" =~ /(-?\d+?\.?\d+)/g; say "@x"'
1.234 5.6789 -12 235

##</code><code>##

$ perl -E '"1.234 5.6789 -1.235" =~ /^(-?\d+?\.?\d+)\s*(-?\d+?\.?\d+)\s*(-?\d+?\.?\d+)$/; say "@{^CAPTURE}"'
1.234 5.6789 -1.235

$ perl -E '"1.234 5.6789-12.235" =~ /^(-?\d+?\.?\d+)\s*(-?\d+?\.?\d+)\s*(-?\d+?\.?\d+)$/; say "@{^CAPTURE}"'
1.234 5.6789 -12.235