my $str = '<Id>3456</Id>' ;
$str =~ m#(<Id>)(.*)(</Id>)# ;
print "1 - $1\n2 - $2\n3 - $3\n" ;

[ doug 14:49 ~ ]% perl test.pl
1 - <Id>
2 - 3456
3 - </Id>