my $line = lc $_;