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

##</code><code>##

undef$/;$_=<STDIN>;s/.../.../;

##</code><code>##

$#ARGV<0&&exit 1;

##</code><code>##

@ARGV||die;

##</code><code>##

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

##</code><code>##

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