$var1 = 'a, a"s"d, 123';
@arr = split(/,/, $var1);
print "@arr\n";