$ perl -le " print 041 "
33

$ perl -le " print chr 041 "
!

$ perl -le " print chr 33  "
!

$ perl -le " print ord q{!}  "
33



##</code><code>##

$ perl -le " print qq{041}  "
041

$ perl -le " print qq{\041}  "
!