I have wrapped the concept in a module with a variety of useful widgets. It's at File::Seek

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print