my $start = $getdata;
my $end   = $getdata2;

my $dir = '../weblog/';
@ARGV     = ();

die "start must be less than end" if $start >= $end;
die "no dir $dir here" unless -d $dir;


find sub {
   my $numb = (fileparse($_,'.txt'))[0];
   return unless $numb =~ /^\d+$/;
   push @ARGV, $File::Find::name if $numb >= $start and $numb <= $end;
}, $dir;

die "no .txt files found in $dir" unless @ARGV;
my %replace = (
    iapw_p1 => "<font color=#000000 size=\"2\"><b><i>P1 = (search inquiry, launch page)</i></b></font>\n",
    iapw_p2 => "<font color=#000000 size=\"2\"><b><i>P2 = (policy coverages, endorsements, operators)</i></b></font>\n",
    iapw_p3 => "<font color=#000000 size=\"2\"><b><i>P3 = (policy notepad)</i></b></font>\n",
    iapw_b1 => "<font color=#000000 size=\"2\"><b><i>B1 = (billing inquiry: auto, home and properties)</i></b></font>",
    iapw_p0 => "<font color=#000000 size=\"2\"><b><i>P0 = (policy search)</i></b></font>\n",
    iapw_c0 => "<font color=#000000 size=\"2\"><b><i>C0 = (record search)</i></b></font>\n",
    iapw_c1 => "<font color=#000000 size=\"2\"><b><i>C1 = (record_two inquiry)</i></b></font>\n",
    iapw_c3 => "<font color=#000000 size=\"2\"><b><i>C3 = (noted notepad)</i></b></font>\n",
    iapw_h1 => "<font color=#000000 size=\"2\"><b><i>H1 = (owners and rental inquiry and history)</i></b></font>\n");

while (<>)
{
    foreach my $key ( keys %replace )
    {
        s/$key/$replace{$key}/g ;
    }
    print;
}