#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>) {
    chomp;

    my @parts = split /(\|[^\|]*\|)/;
    
    for my $part (@parts) {
        if ($part =~ /\|(.*)\|/) {
            $part = join '', $part =~ /([\da-f]+)/ig;
        } else {
            $part = join '', map {sprintf '%02x', ord $_} split '', $part;
        }
        
        print $part;
    }
    
    print "\n";
}

__DATA__
|30 31 32 33 34|.dropbox.com
User-Agent|3A|Google|20 20|Desktop