open(DATA,"<Pull-2015-5-18-23.txt");
my $find = "20150518";
my $replace = "18 May 2015";
while(my $line = <DATA>)
{
        $line =~        s/$find/$replace/g;
        print $line;
}