$ perl -le'print $ARGV[0]' '`rm -i *`'
`rm -i *`

$ perl -le'print eval $ARGV[0]' '`rm -i *`'
rm: remove regular file `demo.pl'? ^C