in reply to Re: Extract Sub String
in thread Extract Sub String

Thanks to all finally I got this working 
my ( $filename ) = $line =~ /(.*?)_RVCT/;

[download]

In Section Seekers of Perl Wisdom