($wanted) = $line =~ /(\S*)/;

##</code><code>##

$_ = "fred xxxxxxx barney";
s/x*//;
print;  # fred xxxxxxx barney