my ( $digits, $letter ) = $input =~ m{ ^ (\d{7})  ([A-Z]) $ }x;

if( not defined $digits ) {
	print "Invalid input: $input\n";
	return;
	# or last, or exit, depending on what sort of block we're in
}

# rest of code such as split //, $digits follows here