perl -e '$i=print map ord,qw"m W A +";print print++$i'