$ perl read2.pl 
/bin/cat: 35/100 successful!
/usr/bin/less: 0/100 successful!
/bin/more: 41/100 successful!
/usr/bin/strings: 37/100 successful!