+ my ($fid, $value, $server) = @_;
+
+ if ( $fid eq FID_SCREEN_MSG && $server->{account}->{screen_msg_regex} ) {
+ foreach my $regex (
+ ref $server->{account}->{screen_msg_regex} eq "ARRAY"
+ ? @{ $server->{account}->{screen_msg_regex} }
+ : $server->{account}->{screen_msg_regex} )
+ {
+ $value =~ s/$regex->{find}/$regex->{replace}/g;
+ }
+ }