$str = "Leesville,TX,78122,830,48177,Gonzales,P,";

$str = "\"$str";
$str =~ s/\,/\"\,\"/g;
$str =~ s/\"$//;

print $str;