Re^2: Problem while Data Extraction

[jpvinny28]

Input =|14 0D 2A|abc

Output =140D2A616263

The values within two pipes is hexadecimal data.. so I need to keep the values as it is in output and value outside the pipe I need to convert to ascii equivalent (abc=61,62,63) in the above example

[Anonymous Monk]

my @F = split(/\|/, $_, 0);
foreach $_ (@F) {
    if (/^[\da-z]{2}(?:\s[\da-z]{2})*$/i) {
        s/\s+//g;
        print $_;
    }
    else {
        print unpack('H*', $_), $/;
    }
}