my $lastrow = "";
while (my $line == "fail.txt")
{
    $line =~ /(.*?)\n/;
    $line = $1;
    if ($line ne $lastrow)
    {
        print $line, "\n";
        $lastrow = $line;
    }
}