#!/usr/bin/perl

use strict;
use warnings;

use Text::ParseWords qw(quotewords);

while (my $line = <>) {
    chomp $line;
    next if $line =~ m/^\s*(?:\#|$)/;
    my $lno = $.;
    while ($line =~ s,\\$,,) {
        $line .= <>;
        chomp $line;
    }
    $line =~ s/^\s++//;
    $line =~ s/\s++$//;
    my @tokens = quotewords(qr/\s++/o, 1, $line);
    @tokens = map { s,",\\",g; $_ } @tokens;
    print "Line $lno: \"" . join ("\" \"", @tokens) . "\"\n";
}