Nothing really obfuscated here, is there?

for ([1,14,12,13],[3,9,10,13,6,5,11],[2,5,11,8],[6,3,4,7,5,11]) {
    for (@$_, 15+($$_[0]==6)) {
        print substr(H'J'P'a'c'e'h'k'l'n'o'r's't'u => 3*$_ => 1)
            || substr(" ,\n" => $_-15 => $_-14);
    }
}
[download]