#!/usr/bin/perl -w
use strict;

my $mystring = 'ABC<ID>blahblah</ID>DEF';
if ( $mystring =~ /<ID>(.*?)<\/ID>/) {
  my $ID = $1;
  print "$ID\n";
}