use Text::ParseWords qw( shellwords );
$line = q{Token1 Token2 "Little phrase" Token4};
@array = shellwords( $line );
print join( "\n", @array ), "\n";