#!perl -p y///sc