AR-AB-1111
AR-AB-23213
AR-AB-232
AR-AB-234
AR-AB-1
AR-AB-4
AR-AB-32
AR-AB-21
AR-AB-32

##</code><code>##

#!/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-//;
	}
}


##</code><code>##

1111
23213
232
234
1
4
32
21
32