($line =~ m/ex21/igm || $line =~ m/EX\-21/igm || 
 $line =~ m/exhibit\-21/igm || $line =~ m/exhibit21/igm)

##</code><code>##

$line =~ /ex(?:hibit)?-?21/i