You might be interested in Tie::Handle::CSV, which does something similar with CSV files (granted yours would probably be parseable as is with the appropriate sep_char setting on the Text::CSV_XS instance).