use strict;use warnings;close STDERR&&open STDERR,">",\$_;
if($-=(map{++$|,warn$!?$!|=$_:$!=$_,$/}66,55,25,67)?$|:$()
{@_=map{substr($_,++$-,++$|)}split$/;print((($^O=~/win/i)?
           join(undef,@_)^'!/ ?':@_)=>"\!",$/)}

##</code><code>##

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