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