@a = (
	'a b c d e',
	'f g h i j',
	'k l m n o',
	'p q r s t',
	'u v w x y'
);

@b = map (join(' ', (split /\s/)[1, 4]), @a);
print "$_\n" for @b;

##</code><code>##

b e
g j
l o
q t
v y