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.";
}

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