Select Code to Download

use strict;
use warnings;
...
}

print join "\n", grep {length $_} @prime;

2
3
...
83
89
97