if ( $incomplete_isbn =~ m/^\d{5}$/ ) {
	my $re_key = qr/.+$incomplete_isbn.+/;

	if ( exists $hashref_isbn->{$re_key} ) {
		print "Found! $incomplete_isbn matches $hashref_isbn->{$re_key}\n";
		}
	}