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