perl dynamic expansion in unlang?

[Fajar A. Nugraha]

Hi,

Is there an example for dynamic expansion with perl in unlang?
Something like this, but using perl instead of regex and SQL:

if ("%{request:User-Name}" =~ /^(.*)@/) {
	update reply {
		Reply-Message := "%{sql:select(concat('Stripped-User-Name:
','%{1}',', random value: ',rand()))}"
	}
}

On a side note, in RHEL6's freeradius-perl RPM, rlm_perl is unusable:
Can't load '/usr/lib64/perl5/auto/Data/Dumper/Dumper.so' for module
Data::Dumper: /usr/lib64/perl5/auto/Data/Dumper/Dumper.so: undefined
symbol: Perl_sv_cmp at /usr/lib64/perl5/XSLoader.pm line 70.

-- 
Fajar