#!perl -p
s/^.( +).$/#$1#/||y; ;#