#!/usr/bin/perl

# Dieses Beispielskript liest eine Texteingabe Zeile fuer Zeile
# und gibt den doppelten Wert der ersten Spalte aus.
#
# Beispieleingabe sei:
# 1
# 2 3 4
# 5 hallo
# dideldum 6 7
# blabla-2 
# -2rhabarber5
# 2.4e+34
#
# Dann ist die Ausgabe:
# 2
# 4
# 10
# 0       (weil "dideldum" == 0)
# 0       (weil "blabla-2" mit einem String anfaengt, also == 0)
# -4      (weil "-2rhabarber5" mit der Zahl -2 anfaengt)
# 4.8e+34 (Fliesskommadarstellung)


use strict;

#Lies die Standardeingabe oder eine Datei Zeile fuer Zeile:
while(<>){
  my $zeile = $_;
  chomp $zeile;                    #abschliessendes \n von der Zeile entfernen
  my @felder = split / /, $zeile;  #Zeile an Leerzeichen auftrennen
                                   #und in @felder speichern
  my $verdoppelt = $felder[0];     #Das erste Feld nehmen...
  $verdoppelt = $verdoppelt*2;     #...und verdoppeln
  print "$verdoppelt\n";
}