4
3,1
2,2
2,1,1
1,3
1,2,1
1,1,2
1,1,1,1

$ perl -E '$n = shift; $rx = ("(1*?)" x ($n-1)) . "(1+)"; $rx = qr/^$rx$/; $x = "1" x $n; $x =~ m/$rx(?{$visto{ join "," => grep { $_ > 0 } map { $+[$_] - $-[$_] } 1..$n }++ })(*FAIL)/; say join "; " => sort keys %visto' 4
1,1,1,1; 1,1,2; 1,2,1; 1,3; 2,1,1; 2,2; 3,1; 4

#!/usr/bin/env perl
use feature 'say';
 
my %visto;						# memoria de combinaciones ya vistas (evitar repeticiones)
 
my $escalones = shift;					# leemos los escalones
 
my $rx = ("(1*?)" x ($escalones-1)) . "(1+)";		# creamos el patrón de búsqueda. Es de la forma (1*?)(1*?)...(1+)
$rx = qr/^$rx$/;
 
my $x = "1" x $escalones;				# esta var. contiene tantos '1' como indiquen los $escalones
 
$x =~ m/
	$rx						# buscamos una combinación
	(?{
	    $visto{					# la decodificamos
		join "," => grep { $_ > 0 } map { $+[$_] - $-[$_] } 1..$escalones
	    }++
	})
	(*FAIL)						# provocamos un fallo de 'backtraking'
      /x;
 
say join "; " => sort keys %visto;			# resultado, formateado

$ descompon.pl 5
1,1,1,1,1; 1,1,1,2; 1,1,2,1; 1,1,3; 1,2,1,1; 1,2,2; 1,3,1; 1,4; 2,1,1,1; 2,1,2; 2,2,1; 2,3; 3,1,1; 3,2; 4,1; 5

perl -E '$del = qr/\s*:\s*/; foreach (<*.mxf>) { ($name,$duration,$encoded) = qx(c:/mediainfo/MediaInfo.exe $_) =~ /Complete name$del(.*?)\n.+?Duration$del(.*?)\n.+?Encoded date$del(\d{4}-\d{2}-\d{2}).+?\n/ms; say join " | ", $name, $duration, $encoded; }'

#!/usr/bin/perl
 
$DEL = qr/\s*:\s*/;		# definimos un delimitador que se repite varias veces
 
foreach $mxf (<*.mxf>) {	# para todos los archivos .mxf del dir. actual
 
				# llamamos a MediaInfo
    my $resultado = qx(c:/mediainfo/MediaInfo.exe $mxf);
 
				# extraemos lo que queremos desde el $resultado
    ($name,$duration,$encoded) =
        $resultado =~ /Complete name$DEL(.*?)\n.+?Duration$DEL(.*?)\n.+?Encoded date$DEL(\d{4}-\d{2}-\d{2}).+?\n/ms;
 
				# formateamos los valores y los sacamos
    say join ' | ', $name, $duration, $encoded;
}

perl -anF'\|' -E 'say join "|", @F[2,6]' archivo.txt > resultado.txt