#!/usr/local/bin/perl -w

use strict;

my $x = "wibble mmnipm";

if ($x =~ mmnipm) {
  print "match\n";
} else {
  print "no match\n";
}