perl -e'BEGIN{$^W+=$SIG{__WARN__}=sub{$_=pop}}$-,$-+=$-+++s$a+ +.+$\$^X$-+print'