#!perl -p
$s=eval s/ /-25+/gr;s;$s ;