Reduce and generalize a list of string

Retina, 25 18 13 bytes

6 byte thanks to FryAmTheEggman, and for inspiration of extra 1 byte.

\d
X
/X
/Y
D`

Try it online!


Perl, 29 27 bytes

Includes +1 for -p

Give input list as seperate lines on STDIN:

perl reduce.pl
regex1
regex2
split1/0
^D

reduce.pl:

#!/usr/bin/perl -p
s/\d/X/&&s//Y/;$_ x=!$$_++

Brachylog, 61 59 44 42 bytes

2 bytes thanks to Fatalize.

:{:ef:{~s"0123456789","X".;?.}ac.}a:{rbh"/",?rbr:"Y"c.;?.}ad.
:{:ef:{~s"0123456789","X".;?.}ac.L(rbh"/",Lrbr:"Y"c.;.)}ad.
:{s"/",?rbbbr:"X/Y"c.;.?t~s@A;?rbr:"X"c.}ad.
:{s"/",?rbbbr:"X/Y"c.|.t~s@A|rbr:"X"c.}ad.

Try it online!