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