Perl script to reformat the file of within-species paralogs into the format that my pipeline expects

reformat_paralogs_file.pl

#!/usr/bin/perl
  
$file = $ARGV[0]; # input file of within-species paralogs from BioMart
open(FILE,"$file") || die "ERROR: cannot open $file\n";
while(<FILE>)
{
    $line = $_;
    chomp $line;
    @temp = split(/\t+/,$line);
    # Genome project  Gene stable ID  Paralogue gene stable ID
    # schistosoma_mansoni_prjea36577  Smp_000020      Smp_333560
    # schistosoma_mansoni_prjea36577  Smp_000030      Smp_346350
    if ($line =~ /schistosoma_mansoni_prjea36577/)
    {   
        $para1 = $temp[1];
        $para2 = $temp[2];
        print "within_species_paralog (schistosoma_mansoni) $para1 (schistosoma_mansoni) $para2 (schistosoma_mansoni)\n";
    }
}
close(FILE);

print STDERR "FINISHED\n";