#!perl -p
s/(.) (\d\S*) ((?2))/$2=$3=$1/?redo:y/=/ /