$ perl -wE 'say chr 49' 1