#!/usr/bin/perl

use strict; use warnings;

my $string = q(hi my name is 'john doe');
my @parts = $string =~ /'.*?'|\S+/g;
print map { "$_\n" } @parts;
__END__