Help for this page

Select Code to Download

Select or download this

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