Select Code to Download

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

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