#!/usr/bin/perl
use strict;
use warnings;

open(IFH,"<","testlib.tcl") || die "Cannot open input file","\n";

my $line ="";
my $cmd ="";
my @arrC = ();
while(<IFH>) {
  next if(/^#/g);
  next if(/^\n/g);
  s/^\s+//g;
  if(/\\\s*$/) {
    s/\\\s*//g;
    chomp;
    $line .= $_;
  } else {
    $line .= $_;
  }
}

#print $line;
my @arr = split(/\n/,$line);
my @test = ();
foreach (@arr) {
  if(/variation_input_db/) {
    s/variation_input_db\s*//g;
    @test = split(/-/,$_); 
  }
}

foreach (@test) {
  print $_,"\n";
}