use strict;
while(<DATA>){
	~s/></>FREE</ if /Required Bearer Cap/; 
	~s/></>FREE</ if /Info Recei frm/;
        ~s/>FREE</>PRICELESS</ if /Perl Monks Help/;
	print;
}

__DATA__
LSB Length                  : 76           [4c]
Version                     : >04<         [04]
Record length               : 0            [00]
Record Type                 : '1'          [01]
Efficiency Indicator        : '0'
Successful Term Type        : '0'          [00]
Unefficiency Cause          : 'f'
Resource Alloc Ind          : 'f'          [ff]
Term Origin                 : 'f'
Term Indicator              : 'f'     [ff]
Info Teleservice            : 33      [21]
Required Bearer Service     : 255     [ff]
Time Stamp 1                : >030720215113<  [03 07 20 21 51 13]
Country Code                : 1       [00 00 01]
Time Stamp 2                : >030720215113<  [07 20 21 51 13]
Input Info                  : >5341870393005150<  [53 41 87 03 93 00 51 50]
List Of Invoked Supp Ser    : ><
List Information            : >1960136771453<  [91 06 31 76 17 54 f3]
Price ID                    : >502130101789872<  [05 12 03 01 71 98 78 f2]
Price Code                  : >910631420033f9<  [91 06 31 42 00 33 f9]
Discount Identity           : >1960132400000<  [91 06 31 42 00 00 f0]
FOC Identity                : >0085 3217<  [05 f2 31 00 85 32 17]
extension                   : >< 
Required Bearer Capability  : ><
Info Recei frm Fixed Supp   : ><
Hotdog at the park          : >$5.00<
Perl Monks Help             : >FREE<