open(data,"<input.txt");
while(<data>) {
$line=<data>;
if ($line=~/\"(.*)\)/) {
$parameter=$1;
}
elsif (/\)/../\;\;/) {
next if /\)/||/\;\;/;
$var=$_;
}
print "$parameter. $var\n";
}
close data;