System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Map function with regular expression
@a = qw(This is a test);
@b = map/^(\w{4})/, @a;
print "@b";