Select Code to Download

#!/usr/bin/perl -w
use strict;
...
__DATA__
"one"," one,two",3,"a like <A HREF="foo"> b</A>"
0,0,0,0

0  ARRAY(0x81a89dc)
   0  '"one"'
...
   1  0
   2  0
   3  0