perl -ni -e "BEGIN{ print qq/Enter new student's name:\n/; $name = <STDIN> } next if /^\Q$name\E\b/; print $_ . ( eof ) ? $name : q// " mytest.doc