@list = $string =~ /(regex1)(regex2)/;