$^I = '.bak';

for my $file ( glob 'exa*.txt' ) {
    @ARGV = $file;
    while( <> ) {
        print if $. >= 15;
    }
}