Select Code to Download

my $max_lines = 100;
. . .
...
  # do stuff
  . . .
}

my $playera = 100;
my $playerb = 100;
...
  die (($playera < $playerb) ? "player A lost!" : "player B lost!") 
    if ($playera < 0 || $playerb < 0);
}

player A HP | player B HP
94.0023803710938 | 99.3478393554688
...
2.77679443359375 | 0.14801025390625
-1.7657470703125 | -7.55615234375
player B lost! at temp.pl line 11.

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}