$ perl -le " print 041 "
33

$ perl -le " print chr 041 "
!

$ perl -le " print chr 33  "
!

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