zsh入門 パート２

ついでにperl版。
誰かzsh版希望。

#!/usr/bin/perl -w
use strict;
my @lines;
while (<>) {
while (/\\\Z/) {
$_ .= <>;
}
push @lines, $_;
}
print sort(@lines);
# This code is PDS.