fgets() is not the right way..

Show the data that you want to parse with Perl.

there are other ways to do this.