Select Code to Download

$line =~ /^(\d{1,2})$/;
$points[$1] = 1;

for ( my $i = 0; $i < scalar @points; $i++ )