for (2599, 158989) {
    my($euro,$cent) = $_ =~ m{^(\d*)(\d{2})$};
    print "$_ -> $euro,$cent\n";
}