Select Code to Download

return( "A", "Cat A" ) if $abs_diff < 75_000 and $source eq "ICE";

# process analysis rules
foreach( @$analysis_rules ) {
  eval $_;
}

# process analysis rules
foreach( @$analysis_rules ) { 
  my( $cat, $comment ) = eval $_;
  return( $cat, $comment ) if $cat and $comment;
}