What would this look like in a perl script?

[starlight849]

perl -i.bak -n -e'print if /\S/' filename

How would i write this into a perl script?
Solved found the B::Deparse method.