chomp -> spinn ich?

[Dietmar]

Guten Abend,

danke für die wirklich rasche Antwort.
Jetzt bin ich wahrlich erleichtert ich dachte es ist wirklich etwas leichtes aber scheinbar doch nicht.

Ich möchte keine Module benutzen aber grep hört sich gut an ich wüsste aber nur wie man grep auf eine liste anwendet und wüsste jetzt nicht wie ich es für diesen zweck nutzen könnte. Könnt ihr mir da noch schnell helfen?

Wenn euch langweilig sein sollte beantowrtet auch meine anderen zwei fragen hehe.
1. Angenommen ich schreibe ein text der gefolgt aussieht:

  
print "Hallo  
    mein  
 Name  
  ist  
      Dietmar";  

Wird es auch genauso ausgegeben ich möchte aber das die leerzeichen oder absätze nicht dazugezählt werden, es soll folglich so aussehen:
HallomeinNameistDietmar

Wie könnte ich das folgende Problem lösen?

2. In einem Programm soll am ende gefragt werden ob man das Programm beenden will wenn ja dann muss man eine eingabe tätigen wenn nein soll das Programm automatisch nach so und soviel sekunden beenden.
Vielleicht hilft euch das weiter zu verstehen:

  
print "Um das Programm zu beenden geben sie exit ein\n";  
my $eingabe = <STDIN>;  
chomp $eingabe;  
  
if ($eingabe) #<- hier soll überprüft werden ob der User eine Eingabe gemacht hat  
{  
        exit;  
}  
else #<- wenn nicht  
{  
        sleep 20;  
        exit;  
}  

Das Problem ist das Programm wird solange nicht weiter ausgeführt bis eine eingabe getätigt wurden ist
Hoffentlich ist klar was ich meine? Wenn nicht gerne nachhaken!

Mfg Dietmar.