http://www.perlmonks.org?node_id=1004108


in reply to extracting data from file

Use Text::CSV or Text::xSV

Examples at