Look at using ~~ for forcing scalar context:

#!/usr/bin/perl -w just another perl hacker
print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__
[download]

-bn