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