c45 disc3 hv regionI.names

data=try8_right_gs_2200_10000_100_1100_500_500_hv


for (( i = 1; i <= 49; i++ )) do
  cp c45_disc3_${data}.names c45_disc3_${data}_region$i.names

  perl -e 's/0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,33,33,34,35,36,37,38,39,40,41,44,43,44,45,46,47,48,49./0,1./g;' -pi c45_disc3_${data}_region$i.names
  perl -e 's/\\n//;' -pi c45_disc3_${data}_region$i.names
done