#!/usr/bin/perl

use strict;
use warnings;

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

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