my $data = 'aa12ab123ac34ad23ae321ca21cb234za123zb12zd12';
while($data =~ m/([a-z]+)(\d+)/igs)
{
	print "alpha  :: $1\n";
	print "Number :: $2\n";
}

use strict;
use warnings;
use CAM::PDF;
use CAM::PDF::PageText;
my $file_name='Planningapplications11March17March2013.txt';
my $pdf = CAM::PDF->new("Planningapplications11March17March2013.pdf");

use strict;
use warnings;
use CAM::PDF;
use CAM::PDF::PageText;
my $file_name='Planningapplications11March17March2013.txt';
my $pdf = CAM::PDF->new("Planningapplications11March17March2013.pdf");
my $page=$pdf->numPages();
print "page :: $page \n";
open my $fh,

use warnings;
use strict;
my $k;
my %lop=(
alpha=>2143,
beta=>456843,
gamma=>78458,
delta=>6453,
theta=>4658);


$k=<STDIN>;
chomp($k);


print"\n $lop{$k}";

@a = qw(ashd asda asdhas ahsdhasd ahsdhasd hdj dssd sdd sdjdh);

for($i=0;$i< $#a;$i++) {
print " $a[$i] \n";

}