#!/usr/bin/perl -i.bak
{
    local $/ = "//\n";
    while (<>) {        # grab a line into $_
        s/this/that/;   # munge away
	print;          # output the munged line to file
    }
}
continue {
    print STDOUT ++$counter, "\n";
}