sub ::{ ;
        my $i=$^;
        ;
        [split /#/, join $`, map {$i^=$_} split//,pop @_ ]
      }