diff --git a/lib/linguist/blob_helper.rb b/lib/linguist/blob_helper.rb
index be4483cf..64497ca5 100644
--- a/lib/linguist/blob_helper.rb
+++ b/lib/linguist/blob_helper.rb
@@ -468,6 +468,28 @@ module Linguist
       end
     end
 
+    # Internal: Guess language of .t files.
+    #
+    # Returns a Language.
+    def guess_t_language
+      score = 0
+      score += 1 if lines.grep(/^% /).any?
+      score += data.gsub(/ := /).count
+      score += data.gsub(/proc |procedure |fcn |function /).count
+      score += data.gsub(/var \w+: \w+/).count
+
+      # Tell-tale signs its gotta be Perl
+      if lines.grep(/^(my )?(sub |\$|@|%)\w+/).any?
+        score = 0
+      end
+
+      if score >= 3
+        Language['Turing']
+      else
+        Language['Perl']
+      end
+    end
+
     # Internal: Guess language of .gsp files.
     #
     # Returns a Language.
diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index c672252b..f03bacd8 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -723,6 +723,7 @@ Perl:
   type: programming
   overrides:
   - .pl
+  - .t
   primary_extension: .pl
   extensions:
   - .PL
@@ -972,6 +973,14 @@ Textile:
   extensions:
   - .textile
 
+Turing:
+  type: programming
+  lexer: Text only
+  primary_extension: .t
+  extensions:
+  - .t
+  - .tu
+
 Twig:
   type: markup
   group: PHP
diff --git a/test/fixtures/perl-test.t b/test/fixtures/perl-test.t
new file mode 100644
index 00000000..a234f9a7
--- /dev/null
+++ b/test/fixtures/perl-test.t
@@ -0,0 +1,10 @@
+use strict;
+use warnings;
+
+use Foo::Bar
+
+$n = 42;
+$name = "world";
+@array = ("1","2","3");
+%hash = ("foo":"bar");
+my $name = "josh";
diff --git a/test/fixtures/turing.t b/test/fixtures/turing.t
new file mode 100644
index 00000000..c68f8eee
--- /dev/null
+++ b/test/fixtures/turing.t
@@ -0,0 +1,19 @@
+% Accepts a number and calculates its factorial
+
+function factorial (n: int) : real
+    if n = 0 then
+        result 1
+    else
+        result n * factorial (n - 1)
+   end if
+end factorial
+
+var n: int
+loop
+    put "Please input an integer: " ..
+    get n
+    exit when n >= 0
+    put "Input must be a non-negative integer."
+end loop
+
+put "The factorial of ", n, " is ", factorial (n)
diff --git a/test/test_blob.rb b/test/test_blob.rb
index ac426842..5d00078c 100644
--- a/test/test_blob.rb
+++ b/test/test_blob.rb
@@ -281,6 +281,10 @@ class TestBlob < Test::Unit::TestCase
     assert_equal Language['R'],           blob("hello-r.R").language
     assert_equal Language['Rebol'],       blob("hello-rebol.r").language
 
+    # .t disambiguation
+    assert_equal Language['Perl'],        blob("perl-test.t").language
+    assert_equal Language['Turing'],      blob("turing.t").language
+
     # ML
     assert_equal Language['OCaml'],       blob("Foo.ml").language
     assert_equal Language['Standard ML'], blob("Foo.sig").language
diff --git a/test/test_language.rb b/test/test_language.rb
index 96eb88f2..1222b864 100644
--- a/test/test_language.rb
+++ b/test/test_language.rb
@@ -20,6 +20,9 @@ class TestLanguage < Test::Unit::TestCase
 
     assert Language.ambiguous?('.r')
     assert_equal Language['R'], Language.find_by_extension('r')
+
+    assert Language.ambiguous?('.t')
+    assert_equal Language['Perl'], Language.find_by_extension('t')
   end
 
   def test_lexer