my $string = "-<ID>A8W11200031</ID>";
$string =~ s/<.+?>//g;
print $string . "\n";