$ perl read2.pl 
/bin/cat: 100/100 successful!
/usr/bin/less: 16/100 successful!
/bin/more: 26/100 successful!
/usr/bin/strings: 32/100 successful!