"; foreach $line (<>) { chomp($line); # justowanie $line =~ s/(\s{2,})/" " x length($1)/ge; # nawiasy katowe $line =~ s//>/g; # zamiana blokow tekstu na paragrafy print "\n
" if ($line eq ''); print "$line\n"; } print "\n\n";