#!/usr/bin/perl -w
#
# $Revision: 1.3 $ $Date: 2012-07-26 17:11:47-04 $
# $Source: /home/vogelke/bin/RCS/backslash,v $
# $Host: sys7.com $
# $UUID: 27f3abc6-e1fb-3bb6-8456-f26c9c681c71 $
#
#<backslash: append lines separated by trailing backslashes.
# based on "Pro Perl" backslash.pl (p195)

use strict;

while (<>) {
    chomp;

    if (s/\\$//) {            # trailing backslash?
        my $line = <>;
        $_ .= $line, redo;    # goes to the 'chomp' above
    }

    print "$_\n";
}

exit(0);