puts [regsub -all 4\\d* [read stdin] 1]