小白请教，怎么才能打印出包含特定字符串的行？

例如文本文件：
                       ....struUL-DCCH-Message
                       ......struUL-DCCH-Message
1>     DC   1------- *
                       ........integrityCheckInfo
B6            -1011100

我想查找关键字“integ”然后打印出这一行的最后4个字符即“Info”该怎么匹配呢，刚入手学PERL，感觉通配符很不好懂，请大家指教！

[oracle@imeg02 zgw]$ perl -nle 'print $1 if /integ.*(.{4})$/' file
Info

[oracle@imeg02 zgw]$ perl -nle 'print substr $_,-4 if /integ/' file
Info