>>56 ｽﾏｿ、ｹｱﾚｽミスった、繋ぐ演算子は+ => *だた…orz
sub p {
　$h = int $n/2;
　for ($i=2; $i<=$h; $i++) {
　　$s[$i] = 1 unless exists $s[$i];
　　do {$s[$i*$_] = 0 for 2..int $h/$i} if $s[$i];
　}
　@p = grep{$s[$_]} 2..$h;
}
sub f {
　my $i = shift;
　my $h = int $i/2;
　for $j (grep{$_ <= $h} @p) {
　　return ($j,f($i/$j)) if 0 == $i % $j;
　}
　$i
}
for $n (qw{28 2002 216653}) {
　p;
　my %f; $f{$_}++ for f($n);
　@f = map{$_ . (1 < $f{$_} and "^$f{$_}")} sort{$a<=>$b} keys %f;
　$" = '*';
　print "$n => @f\n";
}

実行
~ $ perl 13_988.pl
28 => 2^2*7
2002 => 2*7*11*13
216653 => 216653