if (  $arr[$_] =~/\d*[A-Z]_(\d+)$/  ){
       $cur_num = $1;
   }