$ perl -MO=Deparse -wce '($a, $b, $c) = split // => "abc";
               $_ = sprintf "%x%x%x", ord $a, ord $b, ord $c'
    BEGIN { $^W = 1; }
    ($a, $b, $c) = split(//, 'abc', 4);
    $_ = sprintf('%x%x%x', ord $a, ord $b, ord $c);
    -e syntax OK
    $