As a mater of fact i can't use any modules.

Why not?

Not even core modules? Text::Balanced may come in handy.

If you really can't use modules for some unknown reason, you could just take the code from Text::CSV and paste it into your script.

Using regular expressions alone to try to robustly handle CSV isn't a good idea. Especially as it is a problem with an existing solution that has already been well-tested.

-sauoq
"My two cents aren't worth a dime.";