#!/usr/bin/perl use warnings; use strict; $/ = 'authDataAlias='; my %no_dupes; foreach my $line () { if ($line =~ m/^"(.*?_DM\S+)"/i) { $no_dupes{$1} = 0; } } print "$_\n" for keys %no_dupes; __DATA__