C:\> perl -e "print map( \"$_\n\", glob(\"{A,B}{a,b}\"))"