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