Select Code to Download

use strict
  my($num2,$num1,$binary,$j );
...
    $str=substr($str,-$j);    
    return $str;
  }