$line=~/^(\S*) [0-9.]* (.*)$/o; #### my ($class, $feature_vector) = ($1, $2);