fork download
  1. #!/usr/bin/perl
  2. $var='abc';
  3. $result = $var =~ /abc/;
  4.  
  5. print $result;
Success #stdin #stdout 0s 4360KB
stdin
Standard input is empty
stdout
1