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