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