#!/usr/bin/perl

local $/ = undef;

$text = <>;

$text =~ /(\r?\n\r?\n)/;

print $`.$&;
$data = $';

$data =~ s/\s//gs;
print pack("H*", $data);