$s.=$_ while <STDIN>;$s=~s/.../.../;
[download]

... lacks slurp mode and introduces an unneeded variable $s:

undef$/;$_=<STDIN>;s/.../.../;
[download]

$#ARGV<0&&exit 1;
[download]

Much typing to test if @ARGV has elements, and exit 1 can be shortened to die, if the additional error message does not disturb:

@ARGV||die;
[download]

perl -e'use re "eval";';$#ARGV<0&&exit 1;...'
[download]

... can be shortened on the perl command line:

perl -Mre=eval -e '@ARGV||die;...'
[download]

Alexander