use strict;
my $file;
$file="/text_file.txt";
open (FILE,"+<$file");
while( <FILE>) {
  if ($_ =~ /line 2/i) {
    print FILE "replacement text\n";
  }
}
close FILE;