clueless

#!/usr/bin/perluse warnings;use strict;package MyBot;package GetTitle;use LWP::Simple;use base qw ( Bot::BasicBot );sub get_title {    my $data = shift(@_);    my ($title) =  ($data =~ m!<title>(.*?)</title>!ms);    return ($title);}#om någon säger någotsub said {	our $url_regex = '(?:(?:[Hh]t|[Ff])tps?://(?:(?:[^:@/]*:[^:@/]*)@)?|\\bwww\\.)[a-zA-Z0-9\\-]+(?:\\.[a-zA-Z0-9\\-]+)*(?::[0-9]+)?(?:/(?:[\\w\\-/%&?=+#~:\'@*^$!]|[.,;\'](?=\\S)|(?:(\\()|(\\[)|\\{)(?:[\\w\\-/%&?=+;#~:\'@*^$!.,;]|(?:(\\()|(\\[)|\\{)[\\w\\-/%&?=+;#~:\'@*^$!.,;]*(?(3)\\)|(?(4)\\]|\\})))*(?(1)\\)|(?(2)\\]|\\})))*)?';	my ($self, $message) = @_;	if($message->{body} =~ /\b!help\b/) {		return $message->{who}.": Skriv en url och jag returnerar titeln åt dig";	}	elsif($message->{body} =~ $url_regex)  {		return "$message->{who}s url: ".get_title($1);	}}sub help { "LeBot v0.01B" }#skapa en instans av bottenMyBot->new(	server => 'irc.freenode.net',	channels => ['#esec'],	nick => '',)->run();