my $rpattern = reverse $pattern;
$temp =~ s/$rpattern.{6}//s || $temp =~ s/.{6}$rpattern//s;