[perl] tabs -> spaces

1 files changed, 9 insertions, 9 deletions

diff --git a/perl/p3.pl b/perl/p3.pl
index 77324e1..86e2133 100755
--- a/perl/p3.pl
+++ b/perl/p3.pl
@@ -14,14 +14,14 @@ my @primes;
 my $last_factor;
 
 for my $i (2 .. $n) {
-	last if ($i > $n);
-	if (all { $i % $_ != 0 } @primes) {
-		if ($n % $i == 0) {
-			$n /= $i;
-			$last_factor = $i;
-			redo;
-		}
-		push(@primes, $i);
-	}
+    last if ($i > $n);
+    if (all { $i % $_ != 0 } @primes) {
+        if ($n % $i == 0) {
+            $n /= $i;
+            $last_factor = $i;
+            redo;
+        }
+        push(@primes, $i);
+    }
 }
 print "$last_factor\n";