while (my $line = <>) {
        $line = lc $line;
    } continue {
        print $line;
    }