my $num;
	my $cnt = 0;
	
		for (reverse(0 .. length($num_data))) {		
			if ($cnt == 3) {
				$num .= (substr($num_data, $_, 1) . '|');
				$cnt = 0;
			}
			else { $num .= substr($num_data, $_, 1) };
			
			$cnt++;
		}
	
	my @num_data = split /\|/, $num;
	$num_data = join '.', reverse @num_data;