Actually, it matches all of them, but since it is repeating, it overwrites the first match:

$ perl -lwe"q<d'aujourd'hui> =~ /^((\w+')(?{print$+}))+([\w-]+)$/"
d'
aujourd'
$
[download]

    p