perl -MO=Deparse 844275.pl
print "Customer abbreviation:\t \t";
$cust = <STDIN>;
print "\n";
chomp $cust;
use File::Glob ();
until ($cust =~ glob('w{3,4}')) {
    print "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n";
    print "!!!                                        !!!\n";
    print "!!! ABBREVIATION MUST BE 3 OR 4 CHARACTERS !!!\n";
    print "!!!                                        !!!\n";
    print "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n";
    print "\n";
    print "Customer abbreviation:\t \t";
    $cust = <STDIN>;
    chomp $cust;
    print "\n";
}