Select Code to Download

use strict;
use warnings;
...
        print $c++ % 2 ? "\tComponent: $part\n" : "\tDelimiter: $part\
+n";
    }
}

String: %.02f foo.  Parts: ()(%.02f)( foo)
    Component: 
...
    Component: \%.02f foo
String: foo \%.02f bar.  Parts: (foo \%.02f bar)
    Component: foo \%.02f bar

use strict;
use warnings;
...
    my $estring = join q{}, @enc;
    print "String: ($string) => Encoded: ($estring)\n";
}