while (<STDIN>) {
    $_ = "hi test text" if some_condition;
    # etc
}

##</code><code>##

while (<STDIN>) {
    do {
        local $_ = $_;
        open local(*STDIN), @other_args or die $!;
        # do stuff
    } if some_condition;
    # more stuff
}