Home » Blog » Perl » Christmas Eve Obfu

Christmas Eve Obfu

By 

use v5.14;
use strict;
use warnings FATAL => 'all';

our $days_until_christmas = 1

            *
           map
          s([+]
         )( )gix
        &&printf(
          '%5s'
         .'%-4s'
        .'%s',$_,
       substr(~~~~
      reverse,!$^C)
         =~y[/(]
        [\\)]r,$/
       ),my@ xmas=
      qw 1 +.- _(+"
     (_++: /+' +(_/^
           1;1
           ;1;