Substitute characters with n or more in between

Is there any way to make something like this:

sub A {1-5 @Lowercase characters} B' by C;

as one line, rather than:

sub A @Lowercase @Lowercase @Lowercase @Lowercase @Lowercase B' by C;
sub A @Lowercase @Lowercase @Lowercase @Lowercase B' by C;
sub A @Lowercase @Lowercase @Lowercase B' by C;
sub A @Lowercase @Lowercase B' by C;
sub A @Lowercase B' by C;

No. Only the long version is possible.