#!perl -p0
s/9.*/9/s