#!/usr/bin/perl -w
use strict;


my $dhd_file = $ARGV[0];
chomp($dhd_file);
open DATABASE,"$dhd_file" or die "The specified file cant be located.... \n";
my @database = <DATABASE>;
close(DATABASE);



my @valid_line;

foreach my $line (@database) {
    if ($line =~ /:default/) {
        push (@valid_line, $line);
    }
}


foreach my $line (@valid_line) {
    while (length($line) >= 14 && $line =~ /:default/) {
        chomp($line);
        my $posicion = rindex($line,":default");
        my @test = split(//,$line);
        my $posicion2 = scalar(@test);
        my $str = substr($line,$posicion-13,$posicion2);
        print $str,"\n";
        $line =~ s/$str//;
    }
}

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

while ( <DATA> ) {
    while (
        /                           # Comienza la expresión regular
            (                       # Capturamos ...
                    ^ \w{1,12}      #   aquello que comienza la línea por menos de 13 caracteres
                |                   # o
                      \w{13}        #   aquello que tiene 13 caracteres
            )                       # ... como $1
            :default                # delante de un ':default'
            (                       # capturamos ...
                \w+                 #   un montón de caracteres
            )                       # ... como $2
            (?=                     # que precedan
                    $               #   al fin de línea
                |                   # o
                    \w{13} :default #   a otro conjunto de 13 caracteres con un ':default'
            )                       # Esto no lo capturamos ahora, pero sí la siguiente vuelta
        /simogx                     # Fin de la expresión regular
    ) {
        print "$2:$1\n";            # Pintamos lo capturado
    }
}
__DATA__
13caracteres0:defaultnombre013caracteres0:defaultnombre113caracteres0:defaultnombre2
13caracteres1:defaultnombre3
13caracteres2:defaultnombre413caracteres2:defaultnombre5
13caracteres:defaultnombre6

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

while ( <DATA> ) {
    while (
        /                           # Comienza la expresión regular
            (                       # Capturamos ...
                    ^ .{1,12}       #   aquello que comienza la línea por menos de 13 caracteres
                |                   # o
                      .{13}         #   aquello que tiene 13 caracteres
            )                       # ... como $1
            :default                # delante de un ':default'
            (                       # capturamos ...
                .+?                 #   un montón de caracteres
            )                       # ... como $2
            (?=                     # que precedan
                    $               #   al fin de línea
                |                   # o
                    .{13} :default  #   a otro conjunto de 13 caracteres con un ':default'
            )                       # Esto no lo capturamos ahora, pero sí la siguiente vuelta
        /iogx                       # Fin de la expresión regular
    ) {
        print "$2:$1\n";            # Pintamos lo capturado
    }
}
__DATA__
13caracteres0:defaultnombre013caracteres0:defaultnombre113caracteres0:defaultnombre2
13caracteres1:defaultnombre3
13caracteres2:defaultnombre413caracteres2:defaultnombre5
13caracteres:defaultnombre^^6