use strict;
my $a = 4653896912;
my $b = 13;
print ($a >> $b); # 524287