And your question is . . . ?

That obvious lack not withstanding:

• Useless use of cat; pass the filename to be grobbled as an argument
• Use -p, and possibly -i given the fact that it's outputting to a temporary file probably with the intention of replacing $inputfile with the munged version. See perldoc perlrun