I'm merely writing a report module in Perl and I have the following code bit

$val =~ s/^(.*)\n/$1/;
[download]

My Regex is a bit weak (hey, I'm kind of new at this. :p ) but this looks it should work. I'm anchoring the search to the beginning of a string, pick up all the characters until I hit the first \n, then use what was found before the new line to replace the existing value in $val.
Unfortunately, It doesn't work... at all. It gobbles up everything. i.e it doesn't stop at the first \n.
I thought maybe I misunderstood just what . meant so I checked my llama book and it says that, "... it matches any single character except a newline (which is represented by \n)."

So I dug around and found that the following code snippet will work.

$val =~ s/\n.*//s;
[download]

I've done searches around the monestary, but I'm at a complete loss at what I'm supposed to be looking for. :( I'm pretty sure I saw a very similar question regarding this sort of thing, but I can't remember where I saw it, much less the answer.

Is it fair to stick a link to my site here?

Thanks for you patience.