Use File::ReadBackwards to read the lines of the file and then stop at the first match.

use File::ReadBackwards;

tie *BW, 'File::ReadBackwards', 'file' or die "can't read 'file' $!";

while ( <BW> ) {
    if ( /pattern/ ) {
        print;
        last;
        }
    }
[download]

/^.*pat/s
[download]

Wouldn't anchoring the pattern at the end of the string with  \z or one of its ilk (e.g.,  m{ pat \z }xms) tend to be faster since the  .* doesn't need to 'consume' virtually the whole file? Or is this the kind of thing that just gets optimized away?

Update: Contrary to krish28's clarification in Re^2: Matching Regular expression at EOF, this question assumes the entire file is held in a single string. But the question still stands.

He wants the last instance of the pattern in the file. It might not at the very end of the file.

As for speed, (?s:.*) jumps right to the end of the file. (?s:.) matches anything, so no check needs to be made (and none is done).

Anchoring at the end of the string only matches if there's an actual match at the end of the string. But the last match doesn't imply it's at the end of the string. For instance, in the string below, there are two matches for /a.b/, on of them the last one, but none for /a.b\z/.

"123 a!b 456 a?b 789"
[download]

No... its not on a single variable... i am opening the file and reading it line by line...

Then I assume the match doesn't span more than one line?

my @match;
while (<>)) {
   my @caps = /pat/
      or next;
   @match = @caps;
}

if (@match) {
    print("Captured @match\n");
} else {
    die("No match\n");
}
[download]

or

my $match;
while (<>)) {
   $match = $_ if /pat/;
}

if (defined($match)) {
    print("Matched $match");
} else {
    die("No match\n");
}
[download]

All this guessing is leading to suboptimal solutions and wated work. If this is still not good, please provide more info about your problem.

No... its not on a single variable... i am opening the file and reading it line by line...

Try:

my $last_line = undef;
while( <$fh> ){
  $last_line = $_;
  # process file contents, if needed
}
if( defined $last_line ){
  $last_line =~ m/$pat\z/;
}else{
  warn "file is empty\n";
}

my $last = (map {/^.*(pat)/} <>)[-1];
[download]

my ($last) = (`grep pat file`)[1] =~ /^.*(pat)/;
[download]

use autodie;
open my $fh, "<", "file";
my $last;
while (<>) {
    $last = $1 if /^.*(pat)/;
}
[download]