As Text::CSV is a pure-perl module (copying Text::CSV_XS which is C/XS), you can also start digging into CSV_PP.pm and see how the module solves this. Then again, if this urge to find out how to solve this (interesting) specific problem stems from a real-life situation, I'd still tell you to not dig and just use the module.