#!perl -p y//-~'/cs