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

my $regexp = 'Perl Monks';

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

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

##</code><code>##

$ perl /tmp/prueba.pl

Found..
pos = 10