D:\>perl -e "print "'!\"#$%&\'()=-~^|\`@{[+;*:}]<,>.?/_\\'";" !"#$%&'()=-~^|\`@{[+;*:}]<,>.?/_\
問題はどうやって1文字分のスペースを表現するかだな。