#!perl -0p
s/9.*/9/s