fork download 
  1. $line = "print      var1,   var2, var3";
  2.  
  3. if ($line =~ /\s*print\s*([A-Za-z0-9]+)(?=\s*,\s*([A-Za-z0-9]+))/){
  4.     print "$1\n";
  5.  
  6.     @lines = $line =~ /\s*(?:print|(?!^)\G)\s*([A-Za-z0-9]+)(?:,|$)/g;
  7.     $result = join("\n", @lines);
  8.     print "$result\n"
  9. }
Success #stdin #stdout 0s 3564KB
comments (?)
stdin 
Standard input is empty
stdout 
var1
var1
var2
var3
https://ideone.com/03enbV
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!