for
       $@(join
    (';',('t an/'.
  'er p'  .   '#e','',
 join('.' ,      'ker'.
'\\n'     ,      'hel',
 'df ','/sa ',
     ' hac'),'rl.'.
          'oth/jus'
          ,    '"')))
          {   $_=$@};
         sub  O{$".=
  $_ for(pop,shift,
     pop,shift,         shift, pop,pop, shift);$".
         $/}            die&O(m|(.*?)[^\s\w]+|sg);
[download]