sub iranstuff
{
    my ( $kernel, $session, $heap, $args ) = @_[ KERNEL, SESSION, HEAP, ARG0 ];
	my %args = %{$args};
    my $line = $args->{'line'};	
	if ($line =~ m/^\[IRANSTUFF\](.+)$/)
	{
		my $msg;
		my $prefix;
		if ( $1 =~ m/^\[(.+)\](.+)/ ) {$prefix = $1; $msg = $2;}
		$prefix = "09[04$prefix09]09 ";
		plugin::ircmsg ( $prefix . $msg , "A" );
	}	
}