use strict;
use vars qw($VERSION %IRSSI);

use Irssi;
use Irssi::Irc;

$VERSION = '1.00';
%IRSSI = (
    authors	=> 'alge',
    name	=> 'ARM',
    license	=> 'Public Domain',
);

sub send_text {
	my ($txt, $server, $witem) = @_;

	$txt =~ s/arm(\S*\.)/10ARM$1/gi;
	$txt =~ s/\barm\b/10ARM®/gi;
	Irssi::signal_continue($txt, $server, $witem);
}
Irssi::signal_add('send text', 'send_text');
