Select Code to Download

$lcm = $r * 4096;
$lcm /= 2 until $lcm % 8192;
$c = int( $s/$lcm) * $lcm;

use strict;
use warnings;
...
my $c = int( $s/$lcm ) * $lcm;

print "$c\n";