#!/usr/bin/perl
$dataline = "This is a line of data ISOLATION";

$regex = "m/ISOLATION/";

if ($dataline ~= $regex) {
   print "Found a match!\n";
} else {
   print "No match!\n";
}