use MDK::Common; my %shifts = ( 'af' => 1, 'am' => 1, 'ar' => 0, 'az' => 1, 'be' => 2, 'bg' => 2, 'bn' => 1, 'br' => 2, 'bs' => 2, 'ca' => 2, 'cs' => 2, 'cy' => 2, 'da' => 2, 'de' => 2, 'el' => 2, 'en_GB' => 2, 'en_US' => 2, 'eo' => 2, 'es' => 2, 'et' => 2, 'eu' => 2, 'fa' => 0, 'fi' => 1, 'fo' => 2, 'fr' => 2, 'ga' => 2, 'gd' => 2, 'gl' => 2, 'gv' => 2, 'he' => 0, 'hi' => 1, 'hr' => 2, 'hu' => 2, 'hy' => 1, 'ia' => 2, 'id' => 1, 'is' => 1, 'it' => 1, 'iu' => 1, 'ja' => 3, 'ka' => 1, 'kn' => 1, 'ko' => 1, 'kw' => 0, 'lo' => 0, 'lt' => 0, 'lv' => 0, 'mi' => 0, 'mk' => 0, 'mn' => 0, 'mr' => 0, 'ms' => 0, 'mt' => 0, 'nb' => 0, 'nl' => 0, 'nn' => 0, 'no' => 0, 'oc' => 0, 'pl' => 0, 'pt_BR' => 0, 'pt' => 0, 'ro' => 0, 'ru' => 0, 'sk' => 0, 'sl' => 0, 'sp' => 0, 'sq' => 0, 'sr' => 0, 'sv' => 0, 'ta' => 1, 'te' => 1, 'tg' => 0, 'th' => 0, 'tr' => 0, 'tt' => 1, 'uk' => 0, 'ur' => 1, 'uz' => 0, 'vi' => 0, 'wa' => 0, 'yi' => 0, 'zh_CN' => 0, 'zh_TW' => 0, ); foreach (glob("lang*.png")) { /lang-(.*)\.png/; exists $shifts{$1} or die "doesn't exist for $_"; $shifts{$1} or next; print "./a.out $_ l.png $shifts{$1}\n"; system("./a.out $_ l.png $shifts{$1}"); renamef('l.png', $_); } 07+g4A)^[KW^) y3*vaVEe[h]deKU7*Oors,]gazG0'`{vo)c+OI%uT*+>]= sӕ])НJޢTU1Rg 5kW&GM5њ5<\nQDsJ44ډU4ϴnaqR8Q`KGŖ N$ݣnu u: fVbZ_p=FJF&Poc܌>z('bpW7{I^xnv|]Im:S}tFulC}|7 5A`S/Śۺ+7X<es0D%r=kJ5_ 7!&-6;ĎWmK'AHivW5b2>&ƐǃmKߋX}O?yYv/f`rZ RRԆj ?OςWЏ$_}_'fx#wgbm>)HhЙ+31eAd|e}j\.9 4֩ULճWN \[\eADSD8{Ixj>hZ`LT'=.1hjY_L*H
TX*S =Z])!mޫ(S+EeFIY@ 0N"F]NTWFkΜ?BPٗ]ûF?Ph?S5l?ERh6},RVtK4RYsG-z_nf-ryi&ִܢ<JX
I1TkbG@vWH:y(r T\ώk;jk
g@^gp^N|7vMQRXes(6%Z(ԭc>qʠkXowKuGūt"j8@b.@ʥ %(=/_CO7p\:ei1
/h2dx?T{%IGlИ$h7hE !2:wDue̢ہŒ ݀(NwbG/wmE3WaᄝTB"")e6q?ٴIT9Zx}\}7%1iqm[Zd,`DQrVi{C}Ӊ9Fzr4s:9SgqgW-ͿE27
vQm]:
!9PG]e%|w+yRb}mF?E'f y/8mm\\|5fpZŵk* = !BjM:3ݛa7Ӧa !(6\b'Q=f2|Es#7?N?埉+QS|cbyN.-IPp7ww$NJ,7Q2"{;/OD 7-Er!wokX}
]ۇ@=.mV웣UnL,K#6`},6ʳp~''&"E|\9Y9Jl&μ=Af/m%C/;!4t0c>B+]ǩH.i+mۇk>:NՉ@FΜ]WMv
='#Mɋ{ FN4(T7z،HtAw*kjzub?{\f8C)2RmS`b0m5-ƈ\1z1Vߵ9nf^
STe{ l#L-9BZG='(ek*̗f#po0q&8f@x2*l7l^לedG=&