print "Customer abbreviation:	 	";
$cust = <STDIN>;
print "\n";
chomp ($cust);

until($cust =~ <\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:	 	";
	$cust = <STDIN>;

	chomp ($cust);
	print "\n";
	}



##</code><code>##

Customer abbreviation:          AB

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!                                        !!!
!!! ABBREVIATION MUST BE 3 OR 4 CHARACTERS !!!
!!!                                        !!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Customer abbreviation:          AB

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!                                        !!!
!!! ABBREVIATION MUST BE 3 OR 4 CHARACTERS !!!
!!!                                        !!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Customer abbreviation:          AB

BAN Number: