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

##</code><code>##

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

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