my ( $var ) = substr( $fullstring, 2 ) =~ /([^ ]+)/;