$name = guest; $id = 1; open(SOURCE, "file2.txt"); while () { #open(DATA," ) { print SINK "$_" if /startpattern/ .. /Endpattern/; } } __DATA__ #start pattern my name is $name blahhhhhhh my id is $id blahhhh #Endpattern