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