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