##
$html =~ s/(.*?)/&change($1, $2, $3)/isge;
print $html;
sub change {
my ( $group, $temp, $url, $hyp, @groups );
$url = @_[0];
$hyp = @_[2];
@groups = split( /,/@_[1] );
foreach $group (@groups) {
if ($group == $usergroup) {
$temp = "$hyp";
return $temp;
}
return $hyp;
}
}