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