fork download
copy 
  1. for $x (qq[\n...\nabc\n...\n], qq[\nabc\n], qq[\nabc], qq[abc\n], qq[abc]) {
  2.   print qq({{{$x}}} does);
  3.   print q( not) if $x !~ /^\w+$/;
  4.   print qq( match\n\n);
  5. }
  6.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
{{{
...
abc
...
}}} does not match

{{{
abc
}}} does not match

{{{
abc}}} does not match

{{{abc
}}} does match

{{{abc}}} does match
https://ideone.com/vjB3X
language:
Perl (perl 5.28.1)
created:
12 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!