#!/usr/bin/perl
use strict;

if (/thunder/ || /lightning/ || /rain/) {
  join '', 'First Witch', 'Second Witch', 'Third Witch';
}
unless (-e 'hurlyburly') {
  unless ('battle' == 'lost' && 'won') {
    exit('sun');
  }
}
grep /the place/, 'the heath';

join '', 'Macbeth';

warn('Graymalkin');

caller('Paddock') =~ /anon/;

('fair' == 'foul') && ('foul' == 'fair');

join 'hover', split //, 'fog and filthy air';
[download]

First scene from Macbeth... warns, but hey, it is strict :)

cLive ;-)