Comment faire, si le nombre de caractères à récupérer est variable?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
my ($d1, $d2) = $probe =~ m/(\w{$l, $l})(\w+)/;

Merci