# my @input = ( 0xC1, 0xB3, 0xE0, 0x81, ... );
my @input = do { local $/; unpack "C*", pack "H*", <> =~ s/\s//gr };