#!/usr/bin/perl -w

while (<>) {
	chop if ( s/\\\s+$// );
	print;
}
