perl -pi.bak -e "/.{23}pittsburgh/ && s/\d{5}$/15206/;" filename.txt