my @lines = grep {/^#!/} `head -1 -q *`;