sub parseInt {
  my ($parse) = @_;
  my $new='';
  my $newvalue=0;
  my $leng = length ($parse); 
  $leng --; 
  for (my $i=0; $i <=$leng; $i++) {
  $new = substr($parse,$i, 1);
  my $exp =   $leng-$i;
  $newvalue += $new * (16**$exp);
 } 
 return $newvalue;        
}
[download]