#!/usr/local/bin/perl
use strict;
use warnings;

my $regexp = 'Perl Monks';

if($regexp =~ m/^Perl Monks/gi) {
    print "\nFound..";
} else {
    print "\nNot Found..";
}

if($regexp =~ m/^Perl Monks/gi) {
    print "\nFound.1.";
} else {
    print "\nNot Found.1.";
}