#!/usr/bin/perl

my $file = $ARGV[0];
my @array;

open (FILE, $file) || die "Cannot open $file!";

while (<FILE>) {

	if ($_=~/nc\:link\=\"(\S+)\"/) {

		push (@array, $1);
		
	}

}

close (FILE);

foreach my $cas (sort @array) {

	print $cas, "\n";
	
}