#!perl -p y///cs