$ time perl ../ex_pattern_matching.pl
<GGCGATGGCGTTCTAGCGCGTAAAA>
x_cap_i: 7396  x_cap: 7396  x_i: 7396  x: 7396
poz: 9202  idx: 9202  ovr_cap_i: 9202  ovr_cap: 9202  ovr_i: 9202  ovr: 9202
            Rate ovr_cap   ovr  poz ovr_cap_i ovr_i x_cap x_cap_i  x_i  idx    x
ovr_cap   11.1/s      --  -11% -59%      -60%  -62%  -71%    -73% -73% -91% -92%
ovr       12.4/s     12%    -- -54%      -55%  -57%  -68%    -69% -70% -90% -91%
poz       26.9/s    143%  117%   --       -2%   -7%  -31%    -34% -35% -78% -79%
ovr_cap_i 27.5/s    148%  122%   2%        --   -5%  -29%    -32% -34% -78% -79%
ovr_i     28.8/s    160%  133%   7%        5%    --  -26%    -29% -31% -77% -78%
x_cap     38.8/s    250%  213%  44%       41%   35%    --     -4%  -7% -69% -70%
x_cap_i   40.5/s    266%  227%  51%       48%   41%    4%      --  -3% -67% -69%
x_i       41.6/s    275%  236%  55%       51%   44%    7%      3%   -- -66% -68%
idx        123/s   1012%  895% 358%      348%  327%  217%    204% 196%   --  -6%
x          131/s   1079%  955% 386%      375%  353%  237%    222% 214%   6%   --

real    0m37.721s
user    0m37.656s
sys     0m0.015s