#!/usr/bin/perl

use strict;
use warnings;

my $filename = "000231263444_01_XY_20130110_061717.txt";
my $accountnumber = '000231263444';

if (index($filename, "${accountnumber}_") == 0) {
  print "Found\n";
} else {
  print "Not found\n";
}