$/="\n\n"; # Set the record separator to be 2 newlines my $sportfile="my.sport.txt"; # Or whatever the file name is open (my $sport, "<", $sportfile) or die "Cannot open $sportfile : $!"; while (defined <$sport>){ next if m/\b$first_name\b.+$last_name\b/; print; } close $sport;