perl 如何提取大小条件的值

1 现有两个文本 a.txt, b.txt
2 文件内容如下：
a.txt
ID1 1883092 1883268

ID1 1883207 1883295

ID1 1883655 1883702
ID1 1886233 1886361
ID2 4555 6777
......

b.txt
ID1 1880213 1881441 1881616 1884058 1884122 1884209 1884310 1884429 1884584 1885374 1885472 1885809 1885938 1886022
ID2 223 334 400 500
.....
要求：
比如： 输出 a.txt文件数据在b.txt的 1880213 1881441间，1881616，1884058间的符合数据

得到结果文件：
ID1 1883092 1883268

ID1 1883207 1883295

ID1 1883655 1883702

a=oepn('a.txt','r').read
b=oepn('b.txt','r').read
for i in a:
for x in b:

perl读写txt
https://www.cnblogs.com/xiaozz/p/6449662.html

提供个思路
1.读取a.txt中的每一行，并通过正则提取出ID1之后的数字，然后每一行的数字添加到一个列表a中，这样到最后，列表a中就是a.txt中所有的数字
2.读取b.txt，通过正则取出b.txt中的ID1后的数字，并存入列表b
3.取列表a和列表b的交集