Select Code to Download

Select or download this

my $data_in="ISBN 90-70002-34-5";
   $data_in=~ s/^ISBN//;
   $data_in=~ s/ /-/g;
...
unless (($count eq 10) && (!($count=~ m/[a-z]/i))){
   warn "not enough digits in ISBN: $count instead of 10\n";
}

Select or download this

# data from the database you are checking against
my $data_in="90 70002 34 5";
# inputed data
...
unless (($data_in eq $check_data) && (!($count=~ m/[a-z]/i))){{
   die "failure: data in does not match db record\n";
}