$ perl -le " print scalar qw/ ro sham bo / "
bo