$ perl -pi -we"'s{Text::CSV}{Text::CSV_XS}g'" *.pl
Useless use of a constant in void context at -e line 1.