12 lines
125 B
Perl
12 lines
125 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
while(<STDIN>) {
|
||
|
|
|
||
|
|
$_ =~ s/\</</g;
|
||
|
|
$_ =~ s/\>/>/g;
|
||
|
|
|
||
|
|
$_ =~ s/^$/\ /g;
|
||
|
|
|
||
|
|
print $_;
|
||
|
|
}
|