print "Viewer\n\n";
print "Bitte Pfad zur Datei eingeben:  ";
$eingabe =<STDIN>;
chomp($eingabe);
if($eingabe eq ""){
$eingabe="/home/gerhard/xml.ome";
}
my ($a,$reihe)=0,"";

#Öffnen der Datei
open(Datei,$eingabe) or die "Datei konnte nicht gefunden werden nicht gefunden Default wird verwendet";


while($zeile=<Datei> && $a==0){

if($zeile=~/</g || $zeile=~/<\//g){
  $zeile =~ s/</\n</g;
  $zeile =~ s/<\//\n\n<\//g;
  }

$reihe = $reihe.$zeile;
}

print "$reihe\n\n\n";