open(FH, "/Users/anaordonez/Documents/my_languages.txt")or die "Sorry!! couldn't open"; 
print "Reading file \n"; 
  
# Reading the file till FH reaches EOF 
while(<>) 
{ 
    # Printing one line at a time 
    next unless $_ = "Java";
    print $_; 
} 
close;