C:\Code>perl isbncheck.pl
Testing pattern = 12345
Matches found! ISBN = 9780523412345
Testing pattern = 97833
Testing pattern = 97810
Testing pattern = 97805