my $re = qr{
      "[^"]*"   # first quoted string = URL
       ...      # more stuff
}x