if ($_ =~ /replaceme/) {
        print $out qq{$_
<FORM METHOD="post" ACTION="$script_url" name="login">
<table ...>
...
};
    }