$ perl read2.pl 
/bin/cat: 100/100 successful!
/usr/bin/less: 38/100 successful!
/bin/more: 31/100 successful!
/usr/bin/strings: 40/100 successful!