Basically Corion's approach, but uses the  \K operator available from Perl version 5.10 on:

c:\@Work\Perl\monks>perl -wMstrict -le "use 5.010; ;; my $str = qq{Wal-mart talks about its Significant Accounting Policies + in its 10k. \n} . qq{Significant Accounting Policies are important for a firm +. \n} . qq{Here is a list of the Significant Accounting Policies \n +} . qq{1)Lifo \n} . qq{2)Depreciation \n} . qq{3)Expenses \n} ; print qq{<<$str>> \n}; ;; my $sap = qr{ Significant \s+ Accounting \s+ Policies }xms; ;; my ($end_sap) = $str =~ m{ .* $sap \K .* }xmsg; print qq{<<$end_sap>> \n}; " <<Wal-mart talks about its Significant Accounting Policies in its 10k. Significant Accounting Policies are important for a firm. Here is a list of the Significant Accounting Policies 1)Lifo 2)Depreciation 3)Expenses >> << 1)Lifo 2)Depreciation 3)Expenses >>
Please see perlre, perlretut, and perlrequick.

Update: On second thought, I think I would write the statement
    my ($end_sap) = $str =~ m{ .* $sap \K .* }xmsg;
as something like
    my $sap_at_end = my ($end_sap) = $str =~ m{ .* $sap \K .* }xmsg;
so that the success of the match will be separately captured. This allows a

if ($sap_at_end) { do_something_with($end_sap); } else { ... }
block to follow the match to let you handle any eventuality. I might also think about changing the  $sap \K sequence to  $sap \s* \K to consume any whitespace that might follow the  $sap pattern before the "real" text begins.


Give a man a fish:  <%-{-{-{-<


In reply to Re: Take last instance of a string by AnomalousMonk
in thread Take last instance of a string by porsche5k

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.