use strict ;
use warnings ;

my @umban = qw(14 15 2 5 9 12 16 3 8 6 10 13 4 11 7 1) ;
my @tyaku = qw(1 16 10 2 8 4 6 3 9 7 15 14 13 11 5 12) ;
my $corn3 = "(2,*15,14,5)(9,12,16)(8,3,6)-(10,13)(11,4)(7,1)" ;
my $kanse = "(10,*16,1,2)(8,4,6)(9,3,7)-(15,14)(11,13)(5,12)" ;#check


my $dummy = $corn3 ;
$dummy =~ s/\d?\d/N/g ;
my @div = split /N/ , $dummy ;

$dummy = $corn3 ;
$dummy =~ s/\)\-?\(/,/g ;
$dummy =~ s/\*|\(|\)//g ;
my @corn3 = split /,/, $dummy ;

my %hash ;#馬番-着順
@hash{@umban} = @tyaku ;

@corn3 = map{$hash{$_}} @corn3 ;
push @corn3, "" ;
my $c3_new = "" ;
for (my $i=0; $i<=$#div; $i++){
    $c3_new .= "$div[$i]$corn3[$i]" ;
}


print "馬番：$corn3\n" ;#check
print "完成：$kanse\n" ;#check
print "置換：$c3_new\n" ;#check