Perl Integer elleganter einlesen?

[HotSpott]

Hallo schreibe mir gerade ein Programm, dass pwd geschuetze Inetseite fuer mich runterladen und auswerten soll. Da das passwort fuer mich sehr wichtig ist, moechte ich es nicht speichern sondern immer selbst eingeben. Bis jetzt lese ich es so ein.

print "PIN : ";
$PIN = <STDIN>;
($PIN) = $PIN =~ /([0-9]+)/;

Die Eingabe besteht nur aus Zahlen und ich brauche auch nur diese. Ohne die letzte Zeile landet in der Variablen auch ein Zeilenumbruch. Das ist nicht gewuenscht. Bin sicher das kann man eleganter einlesen. Doch als PerlNewbie bin ich schon mal froh, dass ich meinen Formularabruf so hinbekommen habe

[bash_azubi]

chomp entfernt das newline