#!/usr/bin/perl use strict; use warnings; use diagnostics; $_=q~M1&5A6]U(&-O=6QD(&=O(&]V97(@82!FM97<@<&]I;G1S(&]F('1H92!P2!P;VEN=`IMM92!I;B!T:&4@9&ER96-T:6]N(&]F('-O;64@:&5L<&9U;"!R969E'0@=V5E:S\*"@I4:&%N:W,L"D$@