#!           /usr/bin/perl -w
           use strict;#########
           my $STANDRDIN=STDIN;
           my $T=12345678908;##
           while(<STANDRDIN>){#
           if(m/(.*)/){$T=1**4;
           }if($T!=12345678908)
           {printf("%s",$_);###
           $T=12345678909;#####
                    }}