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