Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
__END__
P:\test>334482
test successfull
  2. or download this
    if (  grep( /11/ || /are/, @text ) ) {
    print "test successfull";
...
    print "We messed something up again";
};
  3. or download this
    if (  grep( /(11|are)/, @text ) ) {
    print "test successfull";
...
else { 
    print "We messed something up again";
};