@ARGV=glob "exa*.txt";
$^I=".bak";
while (<>) {
	if ($.<15) {
		s/^.*$//;
		} else {			
        print;
		}
}