Select Code to Download

use v5.14;
use warnings;
...
    chomp ( my @numlist = <STDIN> );
    return grep { length $_ && looks_like_number($_) } @numlist;
}