print "Please enter the string ";
chomp($string=<STDIN>);
$regex= "^\d{4,4}[A-Z0-9]$ ";
if ($string =~ m!($regex)!g) 
{				
  print 'match';
	print "$regex";
  } 
else 
{
  print 'no match';
	print "$regex";
  }