( $system1 = <STDIN> ) =~ s/^\W*(\w+).*/$1/s;