问一个关于perl的问题

问一个关于perl的问题

perl -npe 'exit if (/~[smh]/);' $tridef | grep '~t' -A7

这是在chs中的一个语句
那位帮忙解释一下是什么意思
我看不懂!      
what's the context ?