#!perl -p
s!^.|.$|${-/##/}.!#!g