$ perl -E'$_="abc"; /./g; /(.)/g; say $1'
b