Select Code to Download

    @array=<FH>;
    $_=join('', @array);
    s/(word1)\n(word2)/$1 $2/g;
    @array=split(/\n/, $_);