my @lines = split /\n/, $input;