my $name4 = $1; substr($name4, -13) = ''; my $score4 = $12;