use strict; use warnings; my @files = split (/\n/, `find . -type f -print`); foreach my $file (@files) { my $first_line = `head -n 1 $file`; if ($first_line =~ m/env\s+pwsh/) { print "Removing file $file\n"; unlink $file; } }