#!/usr/bin/perl
use v5.14;

$_ = 'LLL';
my @matches = m/(L)(?=L)/g;
say scalar @matches;  #prints 2, as expected