#!/usr/bin/perl

use strict;
use warnings;

my $filename = "000231263444_01_XY_20130110_061717.txt";
#my $filename = "17034513_01_WQ_20130511_053551.txt";

$filename =~/(^\w+)_(\w{1,2})_(\w{1,2})_(\w+)_(\w+)\.txt$/i;
my $accountnumber = $1;
#test condition
#my $accountnumber = "0";

print "\n *$accountnumber* \n";

#if($filename=~/$accountnumber/gi) {
if($accountnumber=~/$filename/gi) {

print "\n Found - *$accountnumber* - *$filename*\n";

}else{

print "\n Not Found - *$accountnumber* - *$filename*\n";

}