sub getInfoFromLongLine
{
    #Openning file for reading
    open(IFH,"$InputFile") || die "Can't open file: $InputFile\n";
      while($line=<IFH>)
      {
      if ($line=~/.*START(.*?)END/)
      {
          push(@Result,$1);
      }
      if ($line=~/.*?START(.*?)END/)
      {
          push(@Result,$1);
      }
      }
 return @Result;
}