Help for this page
$line =~ m/0\s+(.+?)\s+SUBCASE/; my $expr = $1;
my $expr = substr( $line, 4, 40 );