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