ike510 => q[
        ( my $out = $in ) =~ s/.\K/\x40/sg;
        print 'ike510',  unpack 'C20', $out if DEBUG;;
    ],
    ike5_6 => q[
        ( my $out = $in ) =~ s/(.)/$1\x40/sg;
        print 'ike5.6',  unpack 'C20', $out if DEBUG;;
    ],