Re: Caputre Entire Line Not Just Find

[kennethk]

If you want to grab everything via capture, you'll need to match everything:

while (<FILE>) {
    if (/(.*$find.*)/) {
        $header = $1;
} elsif (/^\s{38}\S*/) {
    print NEW "$header\t", $_;
    }
}

Note that . matches every character but a newline, so there's no need to worry about chomping. See s in Modifiers in perlre.

[jlope043]

Thank you kennethk, this is exactly what I was trying to accomplish. Truly appreciated.