#!/usr/bin/perl

    use strict;
    use warnings;

    use Data::Dumper;

print "Paste in a bunch of text that contains some PIN numbers.\n";
print "Press enter and then Ctrl-D at the end.  This will spit out\n";
print "a unique list of PIN numbers seen.\n";

my @text_in = <>;
my $text_in = join("", @text_in);
my @pids = ($text_in =~ /(?<!\d)(\d\d-\d\d-\d\d\d-\d\d\d-\d\d\d\d)(?!\d)/g);

@pids = uniq(sort @pids);

print join("\n", @pids), "\n";



sub uniq {
    my %seen;
    return grep {!$seen{$_}++} @_;
}