($description, $UIC1, $UIC2, $UIC3) = split(/,+/);
         print TEXT;
[download]

print with just a handle prints the value of $_ which is in this case the original line you read. Try print "$description $UIC1 $UIC2 $UIC3";

Although if all you really want to do is remove commas try doing this one liner: perl -pi~ -e 'tr/,//d'. This will tell perl to run the -e for every line and edit it in place (making a backup with a ~ appened to the filename).