use strict;use warnings;
{close STDERR&&open STDERR,'>',\$_}
print,print[split/\0/,uc^'?25HnL ']->[$|]