$line =~ s[^"|"$][']g;
$line =~ s[",\s"]['|']g;