while (<INFILE>) { 
    chomp($_);
    my @parts = split /(\|[^\|]*\|)/;
   
    for my $part (@parts) {
        if ($part =~ /\|(.*)\|/) 
       {  $part=~s/\|//gi;
           $part=~ tr/ //ds;
            print ($part); 
       }
	else
        {   my $hex = ascii_to_hex($part);
             print ($hex);
        }
        
    }
print("\n");
}