#!/usr/bin/perl

use strict;
$string='i am using perl';
$pattern = 'iamusingper'
if ($string =~$pattern)
print "match found"