__CODE__
open my $fh, "sample.vcd" or die $!; 
my $fields_t0=0;
my @fields_mod=();
my $re = qr{\$dumpoff \$end(\#[\d]+)\$dumpon \$end(.*)\#[\d]+}s;

#open $fh;
{
    my $i=0;
    local $/ = "";

while (<$fh>) {
    if (/$re/) {
          $fields_t0 = $1 ;
          say "match!!";
          @fields_mod = split /\s+/ , $2;
    }
}
}
say $fields_t0;
foreach my $field (@fields_mod) {
       say $field;
}