$d = "4653896912";
$b = "13";
                                                                                
print "1: ",hex(80000000),"\n";
                                                                                
# ehemals im if-block                                                           
    print "2: $d vor erstem right shift (p.95 camel book)\n";
    $d = ($d>>1);
    print "2: $d nach erstem und vor zweitem right shift (p.95 camel book)\n";
    $d = ($d>>($b-1));
# /ehemals im if-block
                                                                                
print "2: $d\n";