How to capture multiple regex groups separated by logical AND inside an if statement in perl?

Question

Here is the code -

my $s_ver = 'port=":443"; d=3600; v="10,20"';
my $b_ver = 'FB10';

if ($s_ver =~ /(v="[0-9]+(,[0-9]+)*")/ && $b_ver =~ /FB(dd)/){
{
   print("$1 and $2
");
}

Current Output - 10 and

Expected output - v="10,20" and 10

How can this be achieved? Thanks.

question from:https://stackoverflow.com/questions/65912118/how-to-capture-multiple-regex-groups-separated-by-logical-and-inside-an-if-state

Answer 1

if ( 
   ( my ($s_cap) = $s_ver =~ /(v="[0-9]+(?:,[0-9]+)*")/ ) &&
   ( my ($b_cap) = $b_ver =~ /FB(dd)/ )
) {
   print("$s_cap and $b_cap
");
}