what about

#! /usr/local/bin/perl -wl 
 
use strict; 

open IN,"<inpfile" ;

local $/ ;
my $r = substr(<IN>,0,160) ;
print "$r" ;
[download]

LuCa