use Modern::Perl;
use Text::ParseWords;

say for shellwords 'This is just an average looking string.';

##</code><code>##

This
is
just
an
average
looking
string.