my $needle = 'i pushed the lazy dog into a creek, the quick brown fox told me to'; my $haystack = 'the quick brown fox jumps over the lazy dog';