(my $out_packet = $packet_dump) =~ s/^.*?(?=\x16\x03\x01\x01)//s;