Select Code to Download

use strict;
use warnings;
...
    my ($base, $id) = split( /=/, $_, 2 );
    print "Id: $id\n";
}