Help for this page

Select Code to Download


  1. or download this
    print "all in m8\n" if $var =~ /.*x.*y.*z.*/;
  2. or download this
    for (<DATA>) {
    chomp;
...
xyo
fyz
xyz
  3. or download this
    my %hash = ( x => 1, y => 1, z => 1 );

...
    print "$_: all in m8\n" if $in == 3;
}