perl dynamic expansion in unlang?

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