Select Code to Download

perl -wn -- - /etc/passwd <<'EOF'
use feature 'say';
...
my ($w, $n) = (uc $1, 5000 + $2);
say qq{log=$w id=$n}
EOF