print "$file\n" unless ( $text =~ /use warnings;/i && $text =~ /use strict;/i ) ;

You really don't want those //i flags. On case-preserving filesystems, use Warnings; and use Strict; will apparently succeed but have no effect because of the lack of Warnings::import() and Strict::import().