$_ = '22C'; s/(\d+)C/($1*9\/5)+32 . "F"/ge; print;