请教各位Perl高手！

请教各位Perl高手！

#请教各位Perl高手！

# while((a+d>b)&&(b))
#{
# a=b;{c=c+d;} 
#  for(int a;a<100;a++)
#    {
#      while(a<b)
#        {
         {};
#    }
#    }
#    while(a>b)
#    {
#        a=b;
#        b=(c+d)/c;
#       
#    }
#}

#变成
# 
#
#  1:while((a+d>b)&&(b))
#   {
#     }
#
#    1.1:for(int a;a<100;a++)
#       {
#      }
#
#      1.1.1:while(a<b)
#           {
#           }
#       
#       1.2:while(a>b)
#       {
#         }
#    

Thanks so much!!!