($i)= grep { m/^#/ } $_;