#!/usr/bin/perl -w

use locale;
   print +(sort grep /\w/, map { chr } 0..255), "\n";
no locale;
   print +(sort grep /\w/, map { chr } 0..255), "\n";
