use strict;
use warnings;

my @prime = (2);
for my $i(3..100){
    push @prime, $i;
    for(@prime){
        next if ! length $_;
        next if int($i/$_)!=($i/$_) or $i==$_;
        $_=~s/$i// for @prime;
    }
}

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

##</code><code>##

2
3
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97