#!perl -p0
$_=y;W;