effizienter wäre statt
my @treffer = grep{index($_,$check) == 5}@isbns;

my @treffer = grep { substr($_, 5, 4) eq $check } @isbns;

und statt
@isbns = map{$_ =~ s/-//g;$_}@isbns;

tr/-//d for @isbns;