Select Code to Download

use warnings;
use strict;
...
    print "found $input in span $x-$y\n";
}
else { warn "did not find $input in any of the spans\n" }

use warnings;
use strict;
...
    # => "found 7.25 in span 7.23-7.133"
}
else { warn "did not find $input in any of the spans\n" }