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