while(<DATA>) {
  chomp;
  my ($first, $last ) = /(.+",)(.+)/;
  print $first;
  $first = " " x length( $first );
  $last =~ s/,/"\n$first"/g;
  print "$last\n";
}

__DATA__
"A","B","C","D"
"A","B","C","D,E,F"
"A","B","C","D"
"A","B","C","D,R,T"