Looking at the data, wouldn't it be much easier to use a CSV based module like Text::CSV_XS, Text::CSV or DBD::CSV?

These all support semi-colon as separator character.