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

##</code><code>##

$temp =~ s/${\scalar reverse $pattern}.{6}//s ||
$temp =~ s/.{6}${\scalar reverse $pattern}//s;

##</code><code>##

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