I need a perl script to find and replace a specific pattern in a file to a new line.

BAsically I have a single line data in a file with 10 mb to 200 MB. I want to put a new line based on a specific pattern to open the file in Excel / Access.

Following is the sample data in a file

*PAABCD *BA1Z8345 SAMPLE *FA00 *PA1Z TEST *FA00 DATA FROM THE LAB *BA1Z1000 research from the customer is endless

I want the out put to look like this

*BA1Z8345 SAMPLE *FA00 *PA1Z TEST *FA00 DATA FROM THE LAB
*BA1Z1000 research from the customer is endless


I tried the following perl script. It did not work properly. i need some help.

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $startdir = '/home/mydir/';
my $find = '/*BA1Z';
my $replace = '\n*BA1Z';
my $doctype = 'txt';
print qq~Finding "$find" and replacing it with "$replace"\n~;
find(
 sub{
   return unless (/\.$doctype$/i);
   local @ARGV = $_;
   local $^I = '.bac';
   while( <> ){
      if( s/$find/$replace/ig ) { 
      print;
   }
  else {
      print;
  }
 }
}, $startdir);
print "Finished";