while (<STDIN>) {
    chomp;
    print STDERR $_ . " is the symbol\n";

}

$ cat symbols.txt | ./test.plx
 is the symbol
 is the symbol
 is the symbol
 is the symbol
  .
  .

while (<STDIN>) {
    #chomp;
    print STDERR $_ . " is the symbol\n";

}

$ cat symbols.txt | ./test.plx
FORM
 is the symbol
IDTI
 is the symbol
ONNN
 is the symbol
CHRT
 is the symbol
ADI
  .
  .