照着 Python 代码改写了一下，.md 的全WA：

perl:

$a, $b, $c, $d, $e = split ' ', <STDIN>;
$s = 0;
$s += $a % 3; $a = int($a / 3); $b += $a; $e += $a;
$s += $b % 3; $b = int($b / 3); $c += $b; $a += $b;
$s += $c % 3; $c = int($c / 3); $d += $c; $b += $c;
$s += $d % 3; $d = int($d / 3); $e += $d; $c += $d;
$s += $e % 3; $e = int($e / 3); $a += $e; $d += $e;
print "$a $b $c $d $e\n";
print "$s\n";