diff --git a/Makefile.PL b/Makefile.PL
index 7cc52d1..87da3ba 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -152,7 +152,7 @@ sub needs_Test
  my $code = 0;
  while (<TFILE>)
   {
-   last if ($code = /^\s*(use|require)\s+Test\b/);
+   last if ($code = m/^\s*(use|require)\s+Test\b/);
   }
  close(TFILE);
  warn "Skipping test $file needs 'Test.pm':$_" if $code;
diff --git a/pTk/counts b/pTk/counts
index 7ccdd92..00b1590 100755
--- a/pTk/counts
+++ b/pTk/counts
@@ -10,7 +10,7 @@ sub count
    while (<C>)
    {
     next if (/^\s*$/);
-    $match = /$file/ if (/^#/);
+    $match = m/$file/ if (/^#/);
     if ($match)
      {
       study;
diff --git a/pTk/mkmethods b/pTk/mkmethods
index 3b923e9..0bd9599 100755
--- a/pTk/mkmethods
+++ b/pTk/mkmethods
@@ -80,7 +80,7 @@ if (%{$table{WIDGET}} || %{$table{COMMAND}} || %{$table{IMAGE}})
    {
     while (<SRC>)
      {
-      my ($kind,$Widget,$list) =  /^(WIDGET|COMMAND|IMAGE)\(\("(\w+)",(("[^"]*",)*)NULL\)\)$/;
+      my ($kind,$Widget,$list) = m/^(WIDGET|COMMAND|IMAGE)\(\("(\w+)",(("[^"]*",)*)NULL\)\)$/;
       if (defined $Widget)
        {
         if (!defined ${$table{$kind}}{$Widget})