#!c:\perl\bin\perl.exe -w
	
	use strict;
	use warnings;
	
	my $s1 = "1ABC";
	print "$s1\n";
	#if ($s1 eq "1ABC")  {
	if ($s1 eq "[0-9][A-Z]BC")  {
		print "Passt!!!\n";
	}	else  {
		print "Passt nicht!!!\n";
	}