open FILEHANDLE, " +< filename"        or die "Unable to open: $! \n";

truncate FILEHANDLE, $desired_length   or print "Unable to truncate: $
+! \n";
[download]

truncate just sets the filesize of the file opened by handle to whatever you specify; you can use it to remove characters from file as well as increase the filesize.