Substitution with evaluation in perl
 

Hi I am ABHI i want to substitute 19-13-10-456765 to 19*10 + 13*5 + 10 is equal to (265) in file i want to know the exact code to do that this is the file content xyz.txt 19-10-13-400922 TID1-3039 1RequestREGISTER 19-10-13-405432 TID1-3039 1Response100 19-10-13-410015 TID1-3039 1Response401...