Re^10: writing two files (different in length) to one output

[Marshall]

You spotted a missing ? to make (uit) optional. Should be:

while ( (print "Prompt: "), $line=<STDIN>, $line !~ /^\s*Q(uit)?\s*$/i
+ )

That way both the single letter q,Q or the full word Quit works. I just made a typing goof and didn't fully test, otherwise I would have seen that a simple "q" didn't work.