# $pwline enthält die ganze Zeile
if (defined($pwline)) {
    ($teil1, $wert) = split ( /\s=\s/, $pwline );
    ($wert, $teil2) = split ( /\s\/\/\s/, $wert );
    $dummy = substr($wert, 0, 1);
    if ( $dummy eq "'" ) {
        $wert = substr($wert,1 );
    }
    $laenge = length($wert);
    $dummy = substr($wert, $laenge-1, 1);
    while ( $dummy eq " ") {
        $wert = substr($wert, 0, $laenge-1);
        $laenge = length($wert);
        $dummy = substr($wert, $laenge-1, 1);
    }
    $laenge = length($wert);
    $dummy = substr($wert, $laenge-1, 1);
    if ( $dummy eq ";" ) {
        $wert = substr($wert, 0, $laenge-2);
    }
    print "Das Passwort lautet: >$wert< \n";
}