source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";
 
my $regexp = qr/( (?:\w+=[\w\,]+) | (?:\w+=\"[^\"]*\") )/xg;
my @matches = $string =~ /$regexp/;

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 1:   hide show   clone   input   1010 days 16 hours ago    Success

  result: Success     time: 0.02s    memory: 5300 kB     returned value: 9

  input: no
  output: no
  stderr:

  Bareword found where operator expected at prog.pl line 3, near "qr/( (?:\w+=[\w\,]+) | (?:\w+=\"[^\"]*\") )/xg"
  syntax error at prog.pl line 3, near "qr/( (?:\w+=[\w\,]+) | (?:\w+=\"[^\"]*\") )/xg"
  Execution of prog.pl aborted due to compilation errors.