Beste Methode, um Aufnahmen-Typen für Shell-Script zu unterscheiden (HD/SD/Radio)?

foreach my $i (@content) {
  given ($i) {
	# video
	when ( $_ =~ /^T\s/smx ) {
  	my ($a,$title) = split /^[T]\s/smx ,$_;
  	$rcdb->{'titel'} = $title;
	}
	when ( $_ =~ /^X\s[1]\s[0](?:[1]|[5])\s/smx ) {
  	$rcdb->{'aspect'} = '4:3';
  	$rcdb->{'HD'} = q{} ;
	}
	when ( $_ =~ /^X\s[1]\s[0](?:[2]|[3]|[6]|[7])\s/smx ) {
  	$rcdb->{'aspect'} = '16:9';
  	$rcdb->{'HD'} = q{} ;
	}
	when ( $_ =~ /^X\s[1]\s[0](?:[4]|[8])\s/smx ) {
  	$rcdb->{'aspect'} = '>16:9';
  	$rcdb->{'HD'} = q{} ;
	}
	when ( $_ =~ /^X\s[1]\s[0](?:[9]|[D])\s/smx ) {
  	$rcdb->{'aspect'} = '4:3';
  	$rcdb->{'HD'} = 'true' ;
	}
	when ( $_ =~ /^X\s[1]\s[0](?:[A]|[B]|[E]|[F])\s/smx ) {
  	$rcdb->{'aspect'} = '16:9';
  	$rcdb->{'HD'} = 'true' ;
	}
	when ( $_ =~ /^X\s[1]\s(?:[0][C]|[1][0])\s/smx ) {
  	$rcdb->{'aspect'} = '>16:9';
  	$rcdb->{'HD'} = 'true' ;
	}
	# audio
	when ( $_ =~ /^X\s[2]\s[0][1]\s/smx ) {
  	$rcdb->{"audiotrack$atrack"} = 'mono';
  	$atrack++;
	}
	when ( $_ =~ /^X\s[2]\s[0][3]\s/smx ) {
  	$rcdb->{"audiotrack$atrack"} = 'stereo';
  	$atrack++;
	}
	when ( $_ =~ /^X\s[2]\s[0][5]\s/smx ) {
  	$rcdb->{"audiotrack$atrack"} = 'dolby digital';
  	$atrack++;
	}
	when ( $_ =~ /^E\s\d+\s\d+\s\d+/smx ) {
  	$rcdb->{'idnr'} =~ /^[E]\s(\d+)\s/smx ;
  	$rcdb->{'starttime'} =~ /^[E]\s\d+\s(\d+)\s/smx ;
  	$rcdb->{'duration'} =~ /^[E]\s\d+\s\d+\s(\d+)\s/smx ;
	}
  } # end given
} # end foreach @content