Loot Alteration

#!/usr/bin/perl use CGI qw/:standard/; push(@INC, "/cgi-bin"); require("cgi-lib.pl"); &ReadParse(*input); @loot = $input{'loot'}; print "Content-type: text/html\n\n"; print qq{ Loot Alteration };

Loot	Copy / Paste Paragraph. "; for (@loot) {s/ //g}; for (@loot) {s/×//g}; for (@loot) {s/ \(semi-rare\)//g}; for (@loot) {s/ \(rare\)//g}; for (@loot) {s/ \(very rare\)//g}; for (@loot) {s/ \(extremely rare\)//g}; for (@loot) {s/\R/<br>/g}; print "@loot"; print "