my $signal = pack ('H4', qw(ff ff 08 00));

#stuff

if ( substr($string, 0, 4) eq $signal ) {
	# it's in use
}