There are a bunch of ways of solving this .. you could try just running through the powers of two:

my$a=256;
for(my$b=1;$b<1E9;$b*=2)
{
  if($a==$b){print'Match!';last;}
}
[download]