3 lines
62 B
Perl
3 lines
62 B
Perl
|
@a = qw(This is a test);
|
||
|
|
@b = map/^(\w{4})/, @a;
|
||
|
|
print "@b";
|