my $raw   = path( sample.vcd)->slurp_raw;
my $re = qr{
\Q$dumpoff $end\E
[\r\n ]+
(\#[\d]+)
[\r\n ]+
\Q$dumpon $end\E
[\r\n ]+
(.*?)
\#[\d]+
}sx;

while( $raw =~ m/$re/g ){
    my( $id, $tidy ) = ( $1, $2 );
    say $i; 
    say $2; 
        }