Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Grep with regular rxpression
print join(" ",(grep {!/^\w{4}$/} (qw(Here are some four letter words.))));