I'm going to create a script called autoreply.pl

    if $title =~ m/^ask hn.*\b(employer|boss|hr)\b/i reply("Talk to a lawyer.")