Select Code to Download

use strict;
use warnings;

my $input_file = "dump.vcd";

open INPUT, '<', "$input_file";

#!/usr/bin/perl
use strict;
...
$var1 1 , x $end
$varx 2 ! _ $end
$vary 3 # aa $end

#!/usr/bin/perl
use strict;
...
$var , x
$var ! _
$vary 3 # aa $end