if ( $string =~ m#<ID>(.*)</ID># ) {
    ...
}