You can do something like this to avoid getting too escape happy.

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