programming-examples/perl/SystemFunction/Map function with regular expression.pl

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