#!/usr/bin/perl
use strict;
use warnings;

open my $file, '<', 'data.txt' or die "Can't open file: $!@";

my @prev = ();
while (my $line = <$file>) {
    my @spl = split(/(\.[fr])/, $line);
    if (@prev) {
        if ($prev[0] ne $spl[0] || $prev[2] ne $spl[2]){
            print @prev;
        } else {
            @prev = ();
            next;
        }
    } 
    @prev = @spl;
}
print @prev;

close $file;