perl file parser