Entfernen nur vor bestimmten Zeichen

[seth_not@home]

gudn tach!

<IN1>:
Hotspot 180
Jahr 2000

<IN2>:
N = Hotspot 180 ':hotspot_180', Jahr 2000 ':jahr_2000',

while(chomp($line=<IN1>)){ [...]

<http://perldoc.perl.org/perlop.html#I%2fO-Operators-operator%2c-i%2fo-operator%2c-io-io-while-filehandle-%3c%3e-%40ARGV@perldoc perlop>:
"In scalar context, evaluating a filehandle in angle brackets yields the next line from that file (the newline, if any, included), or undef at end-of-file or on error."

also:

while($line=<IN1>){  
 chomp($line);  
 # [...]

Warum geht hier kein chomp in der Klammer?

es sollte aus den eben genannten gruenden auch oben nicht gehen.

Kill-Blank zum Zweiten (!!!Hier funzt es nicht!!!):

$line=~s/ ([0-9]+)$/$1/g;

was funzt nicht?
hast du (in den von mir verlinkten dokumenten) nachgelesen, was die einzelnen symbole bedeuten?

prost
seth