#!/usr/bin/perl

use warnings;
use strict;
use Regexp::Genex qw(:all);

my $regex = '\w{1,6}';

for my $plain ( strings($regex) ) {
    print $plain, "\n";
}