#!perl -p s; ;