Help for this page

Select Code to Download


  1. or download this
    use Magic;
tilt() if ($str =~ m/$Magic::selfish/ 
    && ${str}abc !~ m/$Magic::selfish/);
tilt() if ($Magic::selfish =~ m/$str/ 
    && ${Magic::selfish}abc !~ m/$str/);
  2. or download this
    die "42" if ${Magic::selfish}z !~ m/$Magic::selfish/;