diff --git a/dehtml b/dehtml
new file mode 100755
index 0000000..6c4d870
--- /dev/null
+++ b/dehtml
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+{
+  local $/=undef;
+  open FILE, $ARGV[0] or die "Could not open file";
+  $data = <FILE>;
+  close FILE;
+}
+
+$data =~ s/<.*?>//sg;
+$data =~ s/&.*?;//sg;
+print $data;