# zeilenweises einlesen, zeile steckt in $line
# splitte am '-' und nehme nur das 2. Element
$value = (split(/-/, $line))[1]