#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use XML::XPath;
use Spreadsheet::Read;

my $book = ReadData("C:/SLB/Dashboard/DCSS_Applications.xlsx");
my $sheet = $book->[1]; # first data sheet
my @column = ($sheet->{cell}[3]); # 2nd column, unformatted
#@column =~ s/EAR-AA-//;
 
use feature 'say';
foreach my $row (@column) {
    for (@$row) {
		my $rowdata;
		#say $_ if (defined);
		$rowdata = @$row;
		say	$rowdata =~ s/AR-AB-//;
	}
}