#!/usr/bin/env perl

use strict;
use warnings;

$^I = '.bak';

my $head_len = 5; 
my $foot_len = 3; 

while (<>) {
    chomp;
    print substr($_, $head_len, length($_) - $head_len - $foot_len), "\n";
}