DB<107> $_="a"; /(\w)/; $_='aaa'; /($1+)/; print $1
aaa