#!/usr/bin/perl -pw
use strict;

y/:~/%_/;
s/\.(?=\.|$|lock$)/.#/g;