J
John W. Krahn
Paul said:Why are you using four lines when two will do? More explicitly, why
are you forcing Perl to do all these consecutive reads and
substitutions? Why not just one?
my $file = do { local $/; <DATA>};
$file =~ s/\s+//g;
That is two lines! (Yes I can count
( my $file = do { local $/; <DATA> } ) =~ s/\s+//g;
John