Find a copy of The Perl Cookbook and the source for the examples therein (see ora.com for both). That's got a nice variety of fairly simple yet idiomatic short samples.