Re^5: How do i replace one variable with another after searching for a pattern

Select or download this

while(<DATA>) {
    chomp;
    s/<([0-9A-F]+)>/hex($1)/eg;
    print "$_\n";
}

Select or download this

while(<DATA>) {
    s/<([0-9A-F]+)>/hex($1)/eg;
    print;
}

Select or download this

$ perl -pe 's/<([0-9A-F]+)>/hex($1)/eg' /home/stummala/a
JDW-HP 1MVWV93V7j2Hxsa0Ag6 24:00:00 SUBJECT_EXACT _Did you160serve our
+160country? -New VA Home.Loan Program_
JDW-HP 1MVWV98Ddd4fLsa0Ag6 24:00:00 SUBJECT_EXACT Did.you.serve_our co
+untry? New-VA Home160Loan Program_
$

Select Code to Download