dude.. try:

open (IN,"<test.txt") || die;
while (<IN>) {
  chomp;
  # the current line will be in $_ without a trailing newline
}
[download]