#!perl -p
s#{(\d*)}#".$+101e5"/3%3#e&&redo