#!perl -pl
$_=-eval s//+/gr.-45