#!perl -p
s#4.*#1#