Idk, man. Text::Parse::parse_line looks ridiculously complex for what you're doing. Can you describe that record format? Looks rather short sighted, but something that can be "parsed" without a fancy module.
Comment on Re: Issue with Loop when Apostrophe in Field