fork download
  1. #!/usr/bin/perl
  2. (q x x x 10) =~ /(?{ print "hello\n" })(?!)/;
  3.  
Success #stdin #stdout 0s 3608KB
stdin
Standard input is empty
stdout
hello
hello
hello
hello
hello
hello
hello
hello
hello
hello
hello