while(<DATA>) {
    chop;
    $data .= chr hex $1 while s/(..)//;
}