simple Perl prog

Hi, I have a problem and search after a simple perl solution: I want to search in a file after a Username and write all lines with this username in a new file. Example: TestUSERPeterFAX011234567 TestUSERPeterPHONE456789 and so on Thank u for answer. Best regards Captain Mike _

Please help Simple Perl programm

Hi, I have a problem and search for a simple perl solution: Here are the task: Source File: Domainname Username Field Fieldname Example: Test Peter FAX 0112345678 I want search in the source file after a special entry in the Fieldname . Want to read the Username and write then all li