backreferences to two sets of slashes

[Eric smith]

if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d)\d\d)\d\d)/ )
{

# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?
# $bar of course gives its hours minutes and seconds in $1, $2 and $3
}

Thanks

 

[Helmut Richter]

if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d)\d\d)\d\d)/ )
{

# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?

What about

if ("$foo===$bar" =~
/(\d\d)-(\d\d)-\d\d\d\d/.*===.*(\d?\d)\d\d)\d\d)/)