while (<IN>) { $c = /^\$\$\$\$$/; if ($c) { s/^line(\d+)/name$1/ } } [download]
In reply to Re^2: $/ find a line by Anonymous Monk in thread $/ find a line by Anonymous Monk