chiark / gitweb /
cd2655fbb2337db277cfa9824bdff35284bb3ba5
[version-charset-test.git] / escape
1 #!/usr/bin/perl -pw
2 use strict;
3
4 y/:~/%_/;
5 s/\.(?=\.|$|lock$)/.#/;