Select Code to Download

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

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

#!/usr/bin/perl -w
use strict;
...
        map{ pack 'NA1 A*', substr( $_, 1 ), substr( $_, 0, 1 ),  $_ }
        qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];
print join("\n", @arr1)."\n";

locale
A001
...
A473
B659
C659

MAILCHECK=60
        MODLIST=($(LC_ALL=C $YAST -l| grep '^[a-z]' | grep -v "Availab
+le"));
...
        eval val="\$$lc";
            unset lc val;
    unset lc val;