Select Code to Download

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

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