my $license_class =  ($raw_html =~ m|Class:</td><td class="di">(\w+?) |)[0];
$license_class ||= "BAD_CLASS";

##</code><code>##

...in some sub....
return ( $hash{$value} ||= expensive_func($value) );