Select Code to Download

#!/usr/bin/perl
use strict;
...
          'a' => '1',
          'b' => '1[whatever I want]2[whatever I want]3'
        };

#!/usr/bin/perl -l
use strict;
...

__END__

#!/usr/bin/perl
use strict;
...
"single1","single2","single3"
"single4","multiA
multiB",single5