escape

diff --git a/escape b/escape
new file mode 100755 (executable)
index 0000000..cd2655f
--- /dev/null
+++ b/escape
@@ -0,0 +1,5 @@
+#!/usr/bin/perl -pw
+use strict;
+
+y/:~/%_/;
+s/\.(?=\.|$|lock$)/.#/;