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