...
chomp;
warn "
\$_ ($_)
";

...

warn "

\$quote ($quote)
\$linetime ($linetime)
\$comment ($comment) 

";