Help for this page
>perl -wMstrict -le "my @in = ( ... '123' <- 'xxx123xxx' '123' <- '123xxx456' '123' <- 'xxx123xxx456'