Mega Code Archive

 

Categories / Perl / Regular Expression

 

Grep function with regular expression

@a = qw(This is a test); @b = grep/^\w{4}/, @a; print "@b";