#!/usr/bin/perl -w
use strict;

open my $IN,"<","ISC001" or die "Can not open ISC001: $!\n";
open my $OUT,">","ISC-OUT2" or die "Can not open ISC-OUT2: $!\n";

$/="^L";

while(<$IN>){
  ......
}

close $IN;
close $OUT;