|Think about Loose Coupling|
Re^5: Count similar characters in a rowby johngg (Abbot)
|on Oct 08, 2010 at 09:15 UTC||Need Help??|
If you compare the code I gave you and your modified script you will notice that you have lost a couple of very important characters, changing the dereference operator(->) to the subtraction operator (-), i.e.
With regard to say, it was introduced with Perl 5.10 so use print if your version is earlier. If on 5.10, you have to put use 5.010 in your script to access newer features like say. I've not used Perl 5.12 yet so I'm not sure whether the use is necessary there.
You have changed the script to use files but I would recommend that you use the three-argument form of open, employ lexical filehandles and also check for success, giving the o/s error on failure. Instead of
I hope this helps you moveforward.