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