Shell Programming and Scripting

my $tile_list = `egrep "FCFP_TILE_LIST.*=" ${BudgetDir}/tile.params | sed -e 's/FCFP_TILE_LIST//' | sed -e 's/=//'`;
print "Tile List = ".$tile_list."\n";
my @tiles = split(/\s+/, $tile_list);
$unconst_out = "${DestDir}/Unconstrained_ports.rpt";
$check_tim_out = "${DestDir}/reports.rpt";
open(CHKTIMOUT, ">$check_tim_out") || die "I cannot open $check_tim_out";
open(UNCNSTOUT, ">$unconst_out") || die "I cannot open $unconst_out";
foreach $sblk1 (@tiles) {
    #$sblk1 = $_;
    print "Check ".$sblk1."\n";
    $khush_W = 0; 
    $unconst_in = "${Dir}/${sblk1}/${sblk1}.txt";
    open(UNCNSTIN, "<$unconst_in") || die "Khush I cannot open the input file @ $unconst_in";
    #print UNCNSTOUT "\n<<<<<<<<<< ".$sblk1." >>>>>>>>>>\n";
    #while ($line1 = <UNCNSTIN>) {
    #    if ($line1 =~ /Start Section: Ports without constraints/) {
    #        $khush_W = 1;
    #        next;
    #    } elsif ($line1 =~ /End Section: Ports without constraints/) {
    #        $khush_W = 0; 
    #        next;
    #    }
    #    if ($khush_W == 1) {
    #        if ($line1 =~ /^Port:\s+(.*)\s+\(setup\)/) {
    #            $port_W = $1;
    #            print UNCNSTOUT $port_W."\n";
    #            next;
    #        }
    #    }
    #}
    #close(UNCNSTIN) || die "close $!";
}