Mega Code Archive

 

Categories / Perl / System Functions

 

Map function with regular expression

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