An example of text file parsing with Perl.