Select Code to Download

use strict;
use warnings;
...
  $counter++;
  print "($counter) ";
}

use strict;
use warnings;
...
  $exp->expect(1, '-re','\(\d+\)');
}
$exp->soft_close();