open (INFILE, "< $infile") or die "Couldn't open $infile: $!";
open (OUTFILE, "> $outfile") or die "Couldn't open $outfile: $!";

chomp, print OUTFILE <<"EOT" while <INFILE>; # shorter version
BEGIN
   DBMS_REPCAT.CREATE_MASTER_REPOBJECT (
      gname => 'beastdb_mstr_grp',
      type => 'TABLE',
      oname => '$_',
      sname => '$schema',
      use_existing_object => TRUE,
      copy_rows => FALSE);
END;
/

EOT

close (INFILE);
close (OUTFILE);