$first = ('abcd' =~ /(\w)\w(\w)/ )[0];
print $first;

##</code><code>##

print ('abcd' =~ /(\w)\w(\w)/ )[0];