SUBSTR: Extraer una subcadena de una cadena

Extraer el principio y final de una cadena de caracteres usando substr y length.
Ejemplo: Corta los n caracteres iniciales y finales de una cadena.

#!/usr/bin/perl
#############################################################
# Extrae n caracteres del inicio y final de una cadena
#############################################################
#bypp:)2010

use strict;

print "Escribe algo: \n";
my $cadena = STDIN; #faltan simbolos mayor y menor

print "nº de caracteres a cortar: \n";
my $n = STDIN; #faltan simbolos mayor y menor

my $ini = substr($cadena, 0, $n);

my $fin = substr($cadena, (((length $cadena) - 1) - $n));

print "$ini\...$fin\n";

Ref.: http://www.tutorialspoint.com/perl/perl_substr.htm