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