diff --git a/documentation/README.1st b/documentation/README.1st
index 8c48b23cb..1accb0ab5 100644
--- a/documentation/README.1st
+++ b/documentation/README.1st
@@ -272,7 +272,6 @@
          cvsclean.pl             Remove all .#* files in directory tree
          dos2unix.pl             Converts text file from DOS CR/LF to unix ISO
          expandvars.pl           Tool to expand @VAR@ variables while copying a file
-         filterWarnings.pl       Filters warning messages during HP builds
          fullpathName.pl         Returns fullpath name of directory arg
          installEpics.pl         Installs built files into install directories
          makeIncludeDbd.pl       Creates *Include.dbd file from filename args files
diff --git a/documentation/README.html b/documentation/README.html
index 3a5771fa5..52e1e8842 100644
--- a/documentation/README.html
+++ b/documentation/README.html
@@ -284,7 +284,6 @@
         cvsclean.pl             Remove all .#* files in directory tree
         dos2unix.pl             Converts text file from DOS CR/LF to unix ISO
         expandvars.pl           Tool to expand @VAR@ variables while copying a file
-        filterWarnings.pl       Filters warning messages during HP builds
         fullpathName.pl         Returns fullpath name of directory arg
         installEpics.pl         Installs built files into install directories
         makeIncludeDbd.pl       Creates *Include.dbd file from filename args files
diff --git a/src/tools/Makefile b/src/tools/Makefile
index 8d306f4e8..7d44d702a 100644
--- a/src/tools/Makefile
+++ b/src/tools/Makefile
@@ -36,7 +36,6 @@ PERL_SCRIPTS += convertRelease.pl
 PERL_SCRIPTS += cvsclean.pl
 PERL_SCRIPTS += dos2unix.pl
 PERL_SCRIPTS += expandVars.pl
-PERL_SCRIPTS += filterWarnings.pl
 PERL_SCRIPTS += fullPathName.pl
 PERL_SCRIPTS += installEpics.pl
 PERL_SCRIPTS += makeDbDepends.pl
diff --git a/src/tools/filterWarnings.pl b/src/tools/filterWarnings.pl
deleted file mode 100644
index 2e9153490..000000000
--- a/src/tools/filterWarnings.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-eval 'exec perl -S $0 ${1+"$@"}'      # -*- Mode: perl -*-
-	if $running_under_some_shell; # filterWarnings.pl
-#*************************************************************************
-# Copyright (c) 2002 The University of Chicago, as Operator of Argonne
-#     National Laboratory.
-# Copyright (c) 2002 The Regents of the University of California, as
-#     Operator of Los Alamos National Laboratory.
-# Copyright (c) 2002 Berliner Elektronenspeicherringgesellschaft fuer
-#     Synchrotronstrahlung.
-# EPICS BASE Versions 3.13.7
-# and higher are distributed subject to a Software License Agreement found
-# in file LICENSE that is included with this distribution. 
-#*************************************************************************
-
-# $Revision-Id$
-#
-#  Author: Ralph Lange
-#
-
-use Text::Wrap;
-
-my ($errline, $errno, $codeline, $pointline);
-
-$Text::Wrap::columns = $ENV{COLUMNS} if $ENV{COLUMNS};
-
-sub Usage
-{
-    print "Usage:\n";
-    print "<compile line> 2>&1 | $0\n";
-
-    exit 2;
-}
-
-# Invalid whit space filter on solaris not implemented
-#if ( $ENV{"EPICS_HOST_ARCH"} =~ m/solaris-sparc/ ) {
-#  while ( $errline = <> ) {
-#    if ( $errline !~ m/invalid white space character in directive/ ) {
-#      print $errline;
-#    }
-#  }
-#} else {
-  while ( $errline = <> ) {
-    if ( $errline =~ m/^(Warning|Error)/ ) {
-      ($errno) = ($errline =~ m/.* ([0-9]+):/);
-      $codeline = <>;
-      $pointline = <>;
-      next if $codeline =~ m|/[/*]\s*X.*aCC[^a-zA-Z]*$errno|;
-
-      print wrap ("", "    ", $errline);
-      print $codeline;
-      print $pointline;
-    }
-  }
-#}