Mega Code Archive

 

Categories / Perl / Regular Expression

 

Using grep to remove word

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