>perl -wMstrict -le
"my @filenames = qw(
 /data/node12/file-29-2.txt
 /data/node12/file-34-2.txt
 /data/node12/file-50-2.txt
 /data/node30/file-34-2.txt
 /data/node30/file-60-2.txt
 /data/node30/file-62-2.txt
 /data/node34/file-29-2.txt
 );
 ;;
 my %seen;
 my @unique = grep { m{ (-\d\d-) }xms;  !$seen{$1}++ } @filenames;
 print qq{'$_'} for @unique;
"
'/data/node12/file-29-2.txt'
'/data/node12/file-34-2.txt'
'/data/node12/file-50-2.txt'
'/data/node30/file-60-2.txt'
'/data/node30/file-62-2.txt'