Говорили что Перл старый, ни на что не способный язык. Проверим?

~/workspace via 🐍 v3.10.0 
➜ vi sharada.py      

~/workspace via 🐍 v3.10.0 took 1m17s 
➜ chmod +x sharada.py        

~/workspace via 🐍 v3.10.0 
➜ ./sharada.py окунь шлакоблок
шлакоблокунь

~/workspace via 🐍 v3.10.0 
➜ ./sharada.py шлакоблок окунь
шлакоблокунь

~/workspace via 🐍 v3.10.0 
➜ cat sharada.py       
#!/usr/bin/env python
import difflib, sys
w1, w2, *_ = sorted(sys.argv[1:], key=lambda s: len(s))
m = difflib.SequenceMatcher(None, w1, w2).find_longest_match()
print(w2 + w1[m.size:])

longest = 'шлакоблок'
shortest = 'окунь'
m = max(longest.find(shortest[:i]) for i in range(1, len(shortest) + 1))
longest[:m] + shortest

$ gcc -O0 sieve.c -o sieve
$ time ./sieve 50100200
50100191 3006742

real	0m1.104s
user	0m0.678s
sys	0m0.053s
$ gcc -O3 sieve.c -o sieve
$ time ./sieve 50100200
50100191 3006742

real	0m0.892s
user	0m0.476s
sys	0m0.044s

$ ghc -O0 --make sieve
[1 of 1] Compiling Main             ( sieve.hs, sieve.o )
Linking sieve ...
iMac:~ MigMit$ time ./sieve 50100200
(50100191,3006742)

real	0m33.922s
user	0m33.385s
sys	0m0.276s
$ ghc -O3 --make sieve
[1 of 1] Compiling Main             ( sieve.hs, sieve.o ) [Optimisation flags changed]
Linking sieve ...
$ time ./sieve 50100200
(50100191,3006742)

real	0m1.334s
user	0m0.901s
sys	0m0.069s

module Main where
import Control.Monad
import Data.Array.IO
import Data.Foldable
import System.Environment
main =
    do [arg] <- getArgs
       let size = read arg
       primes <- newArray (2, size) True :: IO (IOUArray Int Bool)
       forM_ (takeWhile (\i -> i*i <= size) [2..]) $ \i -> do
         isPrime <- readArray primes i
         if not isPrime
           then return ()
           else forM_ [2*i, 3*i .. size] $ \j -> writeArray primes j False
       let check :: (Int, Int) -> Int -> IO (Int, Int)
           check (j, k) i = do
             isPrime <- readArray primes i
             return $ if isPrime then (i, k+1) else (j, k)
       jk <- foldM check (0, 0) [2..size]
       print jk

#!/usr/bin/env node
let [longest, shortest] = process.argv.slice(2).sort((a, b) => b.length - a.length)
let i = shortest.length
while (--i) {
  if (longest.slice(-i) == shortest.slice(0, i)) break
}
console.log(longest + shortest.slice(i))

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 took 7s 
➜ chmod +x sharada.js

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 
➜ ./sharada.js шлакоблок окунь
шлакоблокунь

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 
➜ ./sharada.js окунь шлакоблок
шлакоблокунь

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 
➜ ./sharada.js папа папаха    
папахапапа

#!/usr/bin/env node
let [longest, shortest] = process.argv.slice(2).sort((a, b) => b.length - a.length)
let i = shortest.length
while (--i) {
  if (longest.slice(-i) == shortest.slice(0, i))
    console.log(longest + shortest.slice(i))
}

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 took 10s 
➜ ./sharada.js окунь шлакоблок
шлакоблокунь

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 
➜ ./sharada.js папа папаха    
папаха

~/workspace via ⬢ v16.13.0 via 🐍 v3.10.0 
➜ cat sharada.js             
#!/usr/bin/env node
let [longest, shortest] = process.argv.slice(2).sort((a, b) => b.length - a.length)
let i = shortest.length
while (--i) {
  if (longest.slice(0, i) == shortest.slice(0, i)) {
    console.log(shortest + longest.slice(i + 1))
    break
  }
  if (longest.slice(-i) == shortest.slice(0, i)) {
    console.log(longest + shortest.slice(i))
    break
  }
}

#include <regex>
#include <iostream>

int main()
{
  std::string s;

s = std::regex_replace("шлакоблок + окунь", std::regex("([^+ ]*?)([^+ ]*)[ +]+\2"), "\1\2");

std::cout << s << std::endl;
}

#include <regex>
#include <iostream>

int main()
{
  std::string s;

s = std::regex_replace("шлакоблок + окунь", std::regex(R"(([^+ ]*?)([^+ ]*)[ +]+\2)"), "$1$2");

std::cout << s << std::endl;
}

#include <regex>
#include <iostream>

int main()
{
  std::string s;

s = std::regex_replace("шлакоблок + окунь", std::regex(R"(([^+[[::s::]]]*?)([^+[[::s::]]]*)[[[::s::]]+]+\2)"), "$1$2");

std::cout << s << std::endl;
}

#!/usr/bin/perl

$_ = "шлакоблок + окунь";
s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/;
print;

#include <iostream>
#include <fstream>
#include <regex>
using namespace std;

int main(){
  string u = "";

  ifstream D ( "vxod.txt");
  ofstream V; V.open("vyxod.txt");

  while (getline(D, u)){
    u = std::regex_replace(u, std::regex(R"(([^+\s]*?)([^+\s]*)[\s+]+\2)"), "$1$2");
    u +="\n"  ;
    cout << u;
    V << u;
  }
  return 0;
}

// Скрипт создан программой perl2cpp-prokhorov: http://chajnik.ru/perl2cpp
//// На основе исходной программы на Perl.

#include <iostream>
#include <regex>
using namespace std;

int main(){
  string u = "";

u = "шлакоблок + окунь";
  u = regex_replace(u, regex(R"(([^+\s]*?)([^+\s]*)[\s+]+\2)"), "$1$2");
    u +="\n"  ;
  cout << u;
  return 0;
}

// Скрипт создан программой perl2cpp-prokhorov: http://chajnik.ru/perl2cpp
// На основе исходной программы на Perl.

#include <iostream>
#include <fstream>
#include <regex>
using namespace std;

int main(){
  string u = "";

  ifstream D ( "vxod.txt");
  ofstream V; V.open("vyxod.txt");

  while (getline(D, u)){
    u = regex_replace(u, regex(R"(([^+\s]*?)([^+\s]*)[\s+]+\2)"), "$1$2");
    u +="\n"  ;
    cout << u;
    V << u;
  }
  return 0;
}

// Скрипт создан программой perl2cpp-prokhorov: http://chajnik.ru/perl2cpp
// На основе исходной программы на Perl.