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

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