Select Code to Download

perl -le'
    $_ = "..."; 
...
        print "$1$2$3$4"
    }
'

perl -le'
    $_ = "..."; 
    s/[\.-]+//g;
    print substr $_, -4;
'