17 lines
406 B
Perl
17 lines
406 B
Perl
sub interesting {
|
|
$_ = shift;
|
|
return
|
|
/>Today is .+\'s birthday\.</
|
|
|| / like[ds]? your post in </
|
|
|| /like[ds] your new subscription\. </
|
|
|| / likes? that you're interested in </
|
|
|| /> likes? your comment: /
|
|
|| /&birthdays=.*birthdays?\.<\/a>/;
|
|
}
|
|
|
|
sub boring {
|
|
return
|
|
/ likes? your post in </
|
|
|| / likes? that you're interested in </
|
|
}
|