in reply to Perl scripts to do extraction of data..
-- $you = new YOU; honk() if $you->love(perl)
*~-}o{-~*