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