Irssi script to prevent clicking of low-quality links on the internet

shitlink.pl

use vars qw/$VERSION %IRSSI/;
use strict;
use warnings;

$VERSION = '0.01';
%IRSSI = (
    authors     => 'revmischa',
    name        => "shitlink",
    description => 'Prevents visiting of shit links',
    license     => "BSD",
);

# Bindings                                                                                                                                   
Irssi::signal_add_last( 'message public', \&event_public );

sub event_public {
    my ($server, $text, $nick, $addr, $target) = @_;

    if ($nick =~ /giraffe/i) {
        $text =~ s!(https?://[^\s]+)!<SHIT LINK BLOCKED>!ig;
    }

    Irssi::signal_continue($server, $text, $nick, $addr, $target);
}