You should try Regexp::Common::comment for common regexes that match comments. It will probably be better than rolling your own.

As for the line count, you can simply keep a counter as you go through the lines of the file. So, set a variable outside of your foreach loop and increment each time to get the new line number.