my $w = substr($string, 0, index($string, ' string'));