diff --git a/36_Flip_Flop/perl/flipflop.pl b/36_Flip_Flop/perl/flipflop.pl
new file mode 100755
index 00000000..63e3f84e
--- /dev/null
+++ b/36_Flip_Flop/perl/flipflop.pl
@@ -0,0 +1,124 @@
+#!/usr/bin/perl
+
+# Flip Flop program in Perl
+# Translated by Kevin Brannen (kbrannen)
+
+use strict;
+use warnings;
+use Math::Trig;
+
+print "\n";
+print " " x 32, "FLIPFLOP";
+print " " x 15, "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY\n\n\n";
+# *** CREATED BY MICHAEL CASS
+
+print "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:\n\n";
+print "X X X X X X X X X X\n\n";
+print "TO THIS:\n\n";
+print "O O O O O O O O O O\n\n";
+print "BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE\n";
+print "LETTER ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON\n";
+print "OTHERS, TWO WILL CHANGE.  TO RESET LINE TO ALL X'S, TYPE 0\n";
+print "(ZERO) AND TO START OVER IN THE MIDDLE OF A GAME, TYPE \n";
+print "11 (ELEVEN).\n\n";
+
+sub initialize
+{
+    my @a;
+    print "1 2 3 4 5 6 7 8 9 10\n";
+    print "X X X X X X X X X X\n";
+    for my $i (0 .. 10) { $a[$i] = "X"; } # make sure [0] has a value just in case
+    return @a;
+}
+
+while (1)
+{
+    my $Q = rand(1);
+    my $C = 0;
+    print "HERE IS THE STARTING LINE OF X'S.\n\n";
+    my @A = initialize();
+
+    while (1)
+    {
+        my $M = 0;
+        my $N;
+        while (1)
+        {
+            print "\nINPUT THE NUMBER: ";
+            chomp($N = <>);
+            if ($N != int($N) || $N < 0 ||  $N > 11)
+            {
+                print "ILLEGAL ENTRY--TRY AGAIN.\n";
+                next;
+            }
+            last;
+        }
+        if ($N == 11) # start a new game
+        {
+            print "\n\n";
+            last;
+        }
+        if ($N == 0) # reset line
+        {
+            @A = initialize();
+            next;
+        }
+
+        if ($M != $N)
+        {
+            $M = $N;
+            $A[$N] = ($A[$N] eq "O") ? "X" : "O";
+            while ($M == $N)
+            {
+                my $R = tan($Q + $N / $Q - $N) - sin($Q / $N) + 336 * sin(8 * $N);
+                $N = $R - int($R);
+                $N = int(10 * $N);
+                if ($A[$N] eq "O")
+                {
+                    $A[$N] = "X";
+                    next;
+                }
+                $A[$N] = "O";
+                last; # GOTO 610
+
+                $A[$N] = "X";
+            }
+        }
+        else
+        {
+            if ($A[$N] ne "O") { $A[$N] = "O"; }
+            while ($M == $N)
+            {
+                my $R = .592 * (1 / tan($Q / $N + $Q)) / sin( $N * 2 + $Q) - cos($N);
+                $N = $R - int($R);
+                $N = int(10 * $N);
+                if ($A[$N] eq "O")
+                {
+                    $A[$N] = "X";
+                    next;
+                }
+                $A[$N] = "O";
+                last;
+            }
+        }
+
+        print "1 2 3 4 5 6 7 8 9 10\n";
+        for my $i (1 .. 10) { print "$A[$i] "; }
+        print "\n";
+        $C++;
+        my $i;
+        for ($i=1 ; $i <= 10 ; $i++) {
+            last if ($A[$i] ne "O");
+        }
+        if ($i == 11)
+        {
+            if ($C <= 12) { print "VERY GOOD.  YOU GUESSED IT IN ONLY $C GUESSES.\n"; }
+            else          { print "TRY HARDER NEXT TIME.  IT TOOK YOU $C GUESSES.\n"; }
+            last;
+        }
+    }
+    print "DO YOU WANT TO TRY ANOTHER PUZZLE (Y/N): ";
+    $_ = <>;
+    print "\n";
+    last if (m/^n/i);
+}