perl -MO=Terse -E'my $str = "McA"; $str = $str . " ";'