Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Grep function with regular expression
@a = qw(This is a test);
@b = grep/^\w{4}/, @a;
print "@b";