{
    open my $foo, '+<', $filename or die $!;
    /$victim/ and last while <$foo>;
    print $foo $victim, $/  or die $!;
}