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