local $^I = '.old';
local @ARGV = ( 'your_file_name' );
my $find = "20150518";
my $replace = "18 May 2015";
while ( <>){
	s/$find/$replace/g;
        print;
}