Mega Code Archive

 

Categories / Perl / Regular Expression

 

Grep with regular rxpression

print join(" ",(grep {!/^\w{4}$/} (qw(Here are some four letter words.))));