Select Code to Download

use strict;
use warnings;
...
   print q(@quoted:), join ",", @quoted;
   print q(@unquoted:),join ",",@unquoted;
}

use strict;
use warnings;
...

print q(@quoted:), join ",", @quoted;
print q(@unquoted:),join ",",@unquoted;