map{sub {
        	        my $i=$!;
                       join $&, map {my $o = $i;
                                        $i = $_;
                                        $o^$_;
                                    }
                                split //,shift
                      };        
                      y;a-z;n-za-m;;$_;
                  }
                  @$_