if ( /^[^0-9]+$/ ) { my @words= /(\b.+?\b)/g; print "@words\n"; }