#!/usr/bin/perl use strict; use warnings; my $cnt=0; my $input=<>; my $unique = ''; if ($unique == $input){ $cnt++; } else if($cnt<1){ print "$unique\n"; }