#!/usr/bin/perl
use strict;
use warnings;

$_ = "\"VAL\", \"VAL\"";
print $_.$/;
s/(?<!\A)("|')(?!\Z)//g;
print $_.$/;