if ( /$xmlstring{'Hzbprtype'}/gs ) {
    print "\nSo weit so gut...";
}


if ( /$xmlstring{'Hzbprtype'}/gs ) {
    print "\nThis is impossible!";
}