--- 3m-810.pl	2010/02/11 13:23:26	65
+++ 3m-810.pl	2010/02/11 14:14:21	66
@@ -91,7 +91,7 @@
 				my $status = 501; # Not implementd
 
 				foreach my $p ( keys %$param ) {
-					next unless $p =~ m/^tag_(\S+)/;
+					next unless $p =~ m/^(E[0-9A-F]{15})$/;
 					my $tag = $1;
 					my $content = "\x04\x11\x00\x01" . $param->{$p};
 					$content = "\x00" if $param->{$p} eq 'blank';