my $high_id = 0;
open my $ID_FILE, "<", "path/to/file" or die $!;
while ( <$ID_FILE> ) {
    my ( $id ) = m/:(\d+):/; # extract first number from line
    $high_id = $id if $id > $high_id;
}
print "highest id found = $high_id\n";