Select Code to Download

    $ perl -MO=Deparse -wce 'sprintf "%x%x%x", ord ("a"), ord ("b"), o
+rd ("c")'
    Useless use of a constant in void context at -e line 1.
...
    '???';
    -e syntax OK  
    $

#!/usr/bin/perl
    
...
Benchmark: running sprintf, unpack for at least 10 CPU seconds...
   sprintf: 11 wallclock secs (10.25 usr +  0.00 sys = 10.25 CPU) @ 77
+5053.56/s (n=7944299)
    unpack: 11 wallclock secs (10.48 usr +  0.01 sys = 10.49 CPU) @ 33
+1145.09/s (n=3473712)

    $ perl -MO=Deparse -wce '$_ = sprintf "%x%x%x", ord "a", ord "b", 
+ord "c"'
    BEGIN { $^W = 1; }
    $_ = '616263';
    -e syntax OK
    $  

    $ perl -MO=Deparse -wce '($a, $b, $c) = split // => "abc";
               $_ = sprintf "%x%x%x", ord $a, ord $b, ord $c'
...
    $_ = sprintf('%x%x%x', ord $a, ord $b, ord $c);
    -e syntax OK
    $

#!/usr/bin/perl
 
...
Benchmark: running sprintf, unpack for at least 10 CPU seconds...
   sprintf: 11 wallclock secs (10.51 usr +  0.01 sys = 10.52 CPU) @ 20
+8379.75/s (n=2192155)
    unpack: 10 wallclock secs (10.10 usr +  0.00 sys = 10.10 CPU) @ 32
+3836.04/s (n=3270744)