Select Code to Download

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

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

$#ARGV<0&&exit 1;

@ARGV||die;

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

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