Hmm, I don't see anything in the request that quotes should be removed, and words should be removed. The input file had the word " rubbish", and it's not in the output.
I've seen CSV files, exported with quotes, would expect those same quotes back. If your specification had been to remove quotes and extraneous words past quotes, maybe this work would be required.
I'd watch that, and the verbosity. Look for somebody lazier (compliment in Perl).
open (IN, "csv.csv");
while () {
#print $_;
chomp;
@array = split(/,/,$_);
print "[User Id] = $array[0] [Name] = $array[1] [Level] = $array[2] [Numeric ID] = $array[3]\n";
}