diff --git a/scripts/perl/multicast/recv.pl b/scripts/perl/multicast/recv.pl
index 241d9df571..ec55daf840 100644
--- a/scripts/perl/multicast/recv.pl
+++ b/scripts/perl/multicast/recv.pl
@@ -8,6 +8,5 @@ my $socket = IO::Socket::Multicast->new( LocalPort => $port, ReuseAddr => 1 );
 $socket->mcast_add($ip);
 
 while($socket->recv($data,1024)) {
-  $data =~ s/^.{8}//;
   print $data;
 }
diff --git a/scripts/perl/multicast/send.pl b/scripts/perl/multicast/send.pl
index 7b8a9aea6d..ed4c84dfe2 100755
--- a/scripts/perl/multicast/send.pl
+++ b/scripts/perl/multicast/send.pl
@@ -13,5 +13,5 @@ $/ = undef;
 my $buf = <I>;
 close(I);
 
-$socket->send("00000000$buf\n");
+$socket->send("$buf\n");