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