Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
@vals = unpack "(x2C)*", $str;
# ^-- dies here with: 'x' outside of string in unpack
say join "\n", @vals;