$ perl -wle'$_="test";
my @array = m/(\w)(e)(.)/;
print for @array'
t
e
s