Based on the example, it looks like the lines you want are at the end of a blank-line-delimited record, so it would probably be easiest (and maybe even most reliable), if you read the file in "paragraph mode", and pop lines off the end of each record until you hit one that consists of just dashes. Something like this (updated to rearrange the conditions for the while loop, which could make it more reliable): 
#!/usr/bin/perl

use strict;
use warnings;

$/ = ""; # set input record separator to paragraph mode

my $recid = 0;

while (<DATA>) {
    my @lines = split /\n/;
    my @wanted = ();
    while ( @lines and $lines[-1] !~ /^-{10}/ ) {
        unshift @wanted, pop @lines;
    }

    if ( @wanted ) {
        unshift @wanted, sprintf( "Record # %d", ++$recid );
        print join( "\n", @wanted ), "\n";
    }
}


__DATA__
IFDI_PXJPB_ID                                      MJ_IFDI_CJYSP_HYJP_
+C         
-------------------------------------------------- -------------------
+-         
CJYSP_MP                                                              
+          
----------------------------------------------------------------------
+----------
CJYSP_SUI_MP                                                          
+          
----------------------------------------------------------------------
+----------
CJYSP_ID                                           CJYSP_ID_FJIP_CD   
+  PFB     
-------------------------------------------------- -------------------
+- ---     
XXXXXX99954499999-99999999_94334633_SPJS_334       XXXX               
+          
KHYSSPFKBUPP MFKPBIFJS FF IFC                                         
+          
KHYSSPFKBUPP MFKPBIFJS FF, IFC                                        
+          
SKS_3449436933_36559337_994                        IF                 
+  US      
                                                                      
+          

FJIP_IFKBJ_ID                                      MJ_FJIP_CJYSP_HYJP_
+C         
-------------------------------------------------- -------------------
+-         
CJYSP_MP                                                              
+          
----------------------------------------------------------------------
+----------
CJYSP_SUI_MP                                                          
+          
----------------------------------------------------------------------
+----------
CJYSP_ID                                           CJYSP_ID_FJIP_CD   
+  PFB     
-------------------------------------------------- -------------------
+- ---     
SKSJCK39954494444-36559366_94334633_FJPX_994       XXXX               
+          
KKP MFIFCY F/P                                                        
+          
KKP-MFIFCY F/P                                                        
+          
SKS_3447994645_36559366_994                        IF                 
+  US      
                                                                      
+          

FJIP_IFKBJ_ID                                      MJ_FJIP_CJYSP_HYJP_
+C         
-------------------------------------------------- -------------------
+-         
CJYSP_MP                                                              
+          
----------------------------------------------------------------------
+----------
CJYSP_SUI_MP                                                          
+          
----------------------------------------------------------------------
+----------
CJYSP_ID                                           CJYSP_ID_FJIP_CD   
+  PFB     
-------------------------------------------------- -------------------
+- ---     
SKSF43399543F9P49-36563753_94334633_FJPX_994       YBS                
+          
KDK PPC CYBP. YF CFFFDF                                               
+          
KDK CYBP YF FMPBICF PFYBYJJ                                           
+          
SKS_3443656944_36563753_994                        IF                 
+  US

[download]

In reply to Re: Parsing a clunky file by graff
in thread Parsing a clunky file by SamCG

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.