Yeah, use substr...:

if(length $input >1100){substr($_,0,1100);} 
# delete everything after 1100 chars
[download]

UPDATE: Too bad everyone beat me to it!

Tiptoeing up to a Perl hacker.
Dave AKA damian