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
>>