perl -MData::Dumper -e '
$str = ",STRING,"; 
@ar = split(/,/,$str); 
print Dumper \@ar;'