>perl -le"'a'=~/(.)/; 'b'=~/./; print $1"

>perl -le"'a'=~/(.)/; 'b'=~/(.*?)/; print $1"