#!/usr/bin/perl for(&L){s/\s+|\n //g; tr/N-ZA-Mn-za-m /a-zA-Z/; s/(\d+)/chr(32)x $1/egx;s/;/\n/gx; print }sub L {return';_1B25B4|4B7>4=12B);1/\4-1=3<1 3(|/3|3\|) 15\7(|1;|1\24/)4| 4(\10\2_1/7/ 1\;;gUR1TNZR1BS1Y VSR1VF1N1 TNZR1BS1OBBZREN ATF.2bHE 1GUBHTUGF,1 QRRQF1NA Q1JBE QF;ERGHEA 1GB1HF1FB BARE1BE1Y NGRE1JVGU 1NFGBHAQV AT1NPPHE NPL.;;13 wncu!2O L1aVXY NF;;'}