#!/usr/bin/perl -w
use strict;

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

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