while ($line=<DATA>) {
    chomp $line;
    ($char, $num1, $num2, $num3, $commafield)=split(/,/,$line,5);
    print <<MYDATA;
$char
$num1
$num2
$num3
$commafield
-------
MYDATA
}
__DATA__
R,2164,27-2164,270102,Add Terminal Server to John, Jane, and Georges
$,1111,22-2222,333333,Ignore mails from support, microsoft or bill