#!/usr/bin/perl @_=<>;print@_[$#_/2..@_/2]