>perl -le "'aA' =~ /(.*)/i && print $1
aA

##</code><code>##

>perl -le "lc('aA') =~ /(.*)/ && print $1
aa