use strict;
use warnings;

my $find    = "20150518";
my $replace = "18 May 2015";

while (my $line = <DATA>) {
    $line =~ s/$find/$replace/g;
    print $line;
}

__DATA__
20150518

##</code><code>##

18 May 2015