my ( $filename ) = $line =~ /(.*?)_RVCT/;