if( $string =~ m/<ID>([^<]+)<\/ID>/ ) {
    print "$1\n";
}