use strict;
use warnings;

while (<DATA>) {
    print if (/d1/ .. /d4/);
}
__DATA__
a
b
c
d
d1
d2
d3
d4
a
b
d1
d2
d4
a
f
g

##</code><code>##

d1
d2
d3
d4
d1
d2
d4