Select Code to Download

#! C:/Perl/bin/perl

...
        print "String: $test_string, position: $x, score: $score\n";
    }
}

String: JKJU, position: 1, score: 2
String: JUJH, position: 3, score: 2
...
String: JUJE, position: 35, score: 3
String: JEJU, position: 37, score: 3
String: JUJK, position: 39, score: 2