use strict;
use Spreadsheet::ParseExcel;
use Data::Dumper;
use Spreadsheet::WriteExcel;

my $val=0;
my $last_col;
my $col=0;
my $row=0;
my @req_sfr_array;
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('formatting.xls');
my $row1;
my $col1;
my $rowmin;
my $colmin;

if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}
my $workbook = Spreadsheet::WriteExcel->new("perl.xls");
    
   

foreach my $worksheet ( $workbook->worksheets() ) {
    $worksheet1  = $workbook->addworksheet();  // if i write $workbook
+->addworksheet($workbook) not changing the worksheet name
    my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();

    print DEBUG_LOG "PARSING WORKSHEET:", $worksheet->get_name(), "\n"
+;
    
    print "\n";
    print "ROW_MIN = $row_min, ROW_MAX = $row_max\n";
    print "COL_MIN = $col_min, COL_MAX = $col_max\n";
    print "\n";

    for my $row ( $row_min .. $row_max ) {
        for my $col ( $col_min .. $col_max ) {
            my $cell = $worksheet->get_cell( $row, $col );
            next unless ($cell);;
            next unless ($cell->value() =~ /\S+/);;
            
            my $val = 0;
            print "Row, Col    = ($row, $col)\n";
            print "Value       = ", $cell->value(), "\n";
            print "\n";
           $val = $cell->value();
        
        if($val eq "Register")
        {
            $rowmin=$row;
                        $colmin=$col;
            }
                   $row1=$row-$rowmin;
                   $col1=$col-$colmin
         $worksheet1->write($row1, $col1, "$val");
    
        }
        
    }
}

Output file 
Reg number  output
2.           Correct
4.             Wrong
 

Input file
Blank box
Blank box Reg number.   Output
           2.            Correct
           4.             Wrong
[download]

when i tried changing the worksheet name as commented above didn't change. Using this code how to delete a particular column in each sheet?

That code gives these errors

Scalar found where operator expected at excel.pl line 57, near "$colmin
                 $worksheet1"
        (Missing operator before $worksheet1?)
Global symbol "$worksheet1" requires explicit package name at excel.pl line 27.
Bareword "i" not allowed while "strict subs" in use at excel.pl line 27.
syntax error at excel.pl line 27, near "i write"
syntax error at excel.pl line 57, near "$colmin
                 $worksheet1"
Global symbol "$worksheet1" requires explicit package name at excel.pl line 57.
excel.pl had compilation errors.

poj

use strict;
use Spreadsheet::ParseExcel;
use Data::Dumper;
use Spreadsheet::WriteExcel;

my $val=0;
my $last_col;
my $col=0;
my $row=0;
my @req_sfr_array;
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('formatting.xls');
my $row1;
my $col1;
my $rowmin;
my $colmin;

if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}
my $workbook1 = Spreadsheet::WriteExcel->new("perl.xls");
    
   

foreach my $worksheet ( $workbook->worksheets() ) {
    $worksheet1  = $workbook1->addworksheet();    # if i write $workbo
+ok->addworksheet($workbook) not changing the worksheet name
    my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();

    print DEBUG_LOG "PARSING WORKSHEET:", $worksheet->get_name(), "\n"
+;
    
    print "\n";
    print "ROW_MIN = $row_min, ROW_MAX = $row_max\n";
    print "COL_MIN = $col_min, COL_MAX = $col_max\n";
    print "\n";

    for my $row ( $row_min .. $row_max ) {
        for my $col ( $col_min .. $col_max ) {
            my $cell = $worksheet->get_cell( $row, $col );
            next unless ($cell);;
            next unless ($cell->value() =~ /\S+/);;
            
            my $val = 0;
            print "Row, Col    = ($row, $col)\n";
            print "Value       = ", $cell->value(), "\n";
            print "\n";
           $val = $cell->value();
        
        if($val eq "Register")
        {
            $rowmin=$row;
                        $colmin=$col;
            }
                   $row1=$row-$rowmin;
                   $col1=$col-$colmin;
         $worksheet1->write($row1, $col1, "$val");
    
        }
        
    }
}

Output file 
Register     output
2.           Correct
4.             Wrong
 

Input file
Blank box
Blank box Register       Output
           2.            Correct
           4.             Wrong
[download]