my $betrag = 23406;
my $euro = $betrag / 100;
my $cent = $betrag % 100;

printf "macht dann genau %d,%02d EUR\n", $euro, $cent;