#!/usr/bin/perl use strict; use warnings; while () { if (/^output\s+"/ .. /"\s*$/) { print; } } _ _DATA_ _ Hier ist Text vor der ersten output-Zeile. output "Daten 1\n Daten 2\n ..." hier steht was anderes. noch was mit "Anfuehrungszeichen" 123 bla blubber 789 output "Daten 1\n Daten 2\n ... noch was" ups, hier ist Ende