$line =~ m/0\s+(.+?)\s+SUBCASE/;
my $expr = $1;

##</code><code>##

my $expr = substr( $line, 4, 40 );