while ( <FH> )
{
    print unless /^Java\z/;
}

##</code><code>##

johngg@aleatico:~$ cat langs
Fortran
JavaScript
Cobol
Go
Java
Haskell
johngg@aleatico:~$ perl -ne 'print unless /^Java\z/' langs
Fortran
JavaScript
Cobol
Go
Haskell