$name = <STDIN>; if ($name =~ /^GfMsB/) {print "A: 16\nB: 19\nC: 6\nD: 14\nE: 12\nF: 11\nG: 10\nH: 13\nI: 9\nJ: 10\nK: 12\nL: 9\nM: 16\nN: 11\nO: 4\nP: 12\nQ: 13\nR: 15\nS: 9\nT: 14\nU: 9\nV: 7\nW: 11\nX: 10\nY: 15\nZ: 12\na: 13\nb: 13\nc: 9\nd: 14\ne: 5\nf: 20\ng: 5\nh: 13\ni: 10\nj: 14\nk: 10\nl: 11\nm: 11\nn: 14\no: 11\np: 11\nq: 15\nr: 14\ns: 6\nt: 12\nu: 12\nv: 9\nw: 17\nx: 8\ny: 15\nz: 9";}elsif ($name =~ /^nvdSB/){print "A: 11\nB: 17\nC: 16\nD: 7\nE: 11\nF: 12\nG: 9\nH: 15\nI: 13\nJ: 17\nK: 11\nL: 8\nM: 16\nN: 10\nO: 20\nP: 9\nQ: 9\nR: 9\nS: 14\nT: 6\nU: 12\nV: 8\nW: 6\nX: 15\nY: 10\nZ: 7\na: 8\nb: 12\nc: 11\nd: 11\ne: 8\nf: 12\ng: 7\nh: 17\ni: 14\nj: 6\nk: 14\nl: 12\nm: 13\nn: 13\no: 14\np: 12\nq: 9\nr: 7\ns: 13\nt: 10\nu: 14\nv: 12\nw: 16\nx: 14\ny: 10\nz: 13";}elsif ($name =~ /^rSUmy/){print "A: 8\nB: 8\nC: 19\nD: 14\nE: 15\nF: 8\nG: 8\nH: 10\nI: 12\nJ: 12\nK: 17\nL: 16\nM: 12\nN: 11\nO: 19\nP: 11\nQ: 6\nR: 10\nS: 8\nT: 12\nU: 15\nV: 15\nW: 18\nX: 9\nY: 12\nZ: 9\na: 8\nb: 8\nc: 9\nd: 14\ne: 9\nf: 20\ng: 7\nh: 11\ni: 9\nj: 5\nk: 12\nl: 9\nm: 16\nn: 15\no: 10\np: 9\nq: 19\nr: 10\ns: 7\nt: 14\nu: 7\nv: 13\nw: 8\nx: 12\ny: 14\nz: 11";}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).