Para el primer caso:
Código PHP:
#!/usr/bin/perl
use Modern::Perl;
my $cadena = '[07/Nov/2008:05:04:30';
my $fecha = substr $cadena, 1, 11;
my @fecha = split '/', $fecha;
my @nombres_de_meses = qw( Jan Fev Mar Avr May Jun Jul Ago Sep Oct Nov Dec );
my %numero_del_mes = map { $nombres_de_meses[$_] => 1+$_ } 0 .. $#nombres_de_meses;
my $fecha_nueva = sprintf "%04d%02d%02d", $fecha[2], $numero_del_mes{$fecha[1]}, $fecha[0];
say $fecha_nueva;
Y para el segundo:
Código PHP:
#!/usr/bin/perl
use Modern::Perl;
my $fecha = '2008-02-23';
$fecha =~ s/-//g;
say $fecha;
O también:
Código PHP:
#!/usr/bin/perl
use Modern::Perl;
my $fecha = '2008-02-23';
substr( $fecha, 4, 1 ) = '';
substr( $fecha, 6, 1 ) = '';
say $fecha;
Y algunas más...