Select Code to Download

#!perl -i.bak
my $newnum = shift;
...
$_ = <>;
s/(Authentication number) \d+/$1 $newnum/;
print