my ($first) = string =~ /some regex with capture/;