open FH, '+<file.txt';

while (<FH>)  {
        print $_;
        if ( /^2/ )  {
        print FH "two\nhi hello\n";
        }
}