my $wert1 = Math::BigFloat->new('9999999999131400');
my $wert2 = Math::BigFloat->new('99999999991314');
print sprintf(
    "%02d\n%02d\n", 
    $wert1->bmod(97), 
    $wert2->bmod(97)
);