use strict;
use warnings;
use feature "say";

use Text::ParseWords;

my $args = '23 45.67 "John Marcus" Surname';

my @parsed = parse_line('\s+', 0, $args);

say for @parsed;

##</code><code>##

23
45.67
John Marcus
Surname