while (<IN>) {

$c = /^\$\$\$\$$/;

if ($c) { s/^line(\d+)/name$1/ }

}