#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
my $str = "xxxx yy zzzzz xxxx qqq";
my $lengthy = sub { warn 1 };
my @list = grep $lengthy, split /\W/, $str;
dd \@list;
__END__