my $m = 3175849318035832905;
my @primes = ();
my $i = 1, $b = 0;
while ( $i < $m ) { # looped until the final prime factor has been found
	$i++;
	foreach (@primes) {
		if( ! ( $i % $_ ) ) {
			$b = 1;
			next;
		}
	}
	if ( $b ) {
		$b = 0;
	} else { # if it is a prime
		push @primes, $i;
		while ( ! ( $m % $i ) ) { # as long as $m is divisbible by the prime
			print "$i \n"; # print the prime (since it's a prime factor)
			$m /= $i; # divide $m by the prime
		}
	}
}