#!/usr/bin/perl
use strict;
use warnings;
open(FILE,"pe_real_sample.txt") or die "cannot open";
open(OUTFILE,">last.output") or die "cannot open";
my @arr=<FILE>;
close(FILE);
my $prev1=0;my $prev2=0;my @dels;
foreach(@arr){
	my @spl=split(".(f|r)",$_);
	if($prev1 eq $spl[0] && $prev2 eq $spl[2]){
		push(@dels,$spl[0]);
	}
	$prev1=$spl[0];$prev2=$spl[2];
}
my $del= join '|', map quotemeta, @dels;
my @arr1=grep !/$del/,@arr;
print OUTFILE "@arr1\n";