Can you give a piece of example-contents of the file you want to scan and the result you want? I don't completely understand what you're trying to do... Jouke Visser, Perl 'Adept'