sub getInfoFromSingleLineMultiLineFile
{
    #args and file opening...
    while($line = <IFH>){
        if($line =~ /\Q$stag\E(.*?)\Q$etag\E/){
            push(@wanted_substrings,$1);
        }
    }
    return @wanted_substrings;
}