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

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