For code injection I use a Safe compartment, where I enable only OP that wont change the symbol-table or call CODE (since I enable some simple CORE functions, like time, pack, etc...): 
  my @PERMIT_OPS = qw(
  :base_mem

    null stub pushmark const defined undef

    preinc i_preinc predec i_predec postinc i_postinc postdec i_postde
+c
    int hex oct abs pow multiply i_multiply divide i_divide
    modulo i_modulo add i_add subtract i_subtract

    left_shift right_shift bit_and bit_xor bit_or negate i_negate
    not complement

    lt i_lt gt i_gt le i_le ge i_ge eq i_eq ne i_ne ncmp i_ncmp
    slt sgt sle sge seq sne scmp

    substr stringify length ord chr

    ucfirst lcfirst uc lc quotemeta trans chop schop chomp schomp

    match split

    list lslice reverse

    cond_expr flip flop andassign orassign and or xor

    lineseq scope enter leave setstate

    rv2cv

    leaveeval

  
  gvsv gv gelem

  padsv padav padhv padany

  refgen srefgen ref

  time
  sort 
  pack unpack
  ) ;

  use Safe ;

  $safe = Safe->new('CODE::INJECTION') ;
  $safe->permit_only(@PERMIT_OPS) ;
  
  ## For regex insertion you should use:
  my $RE = $safe->reval('qr/<\w+.*?>/s');
  if ( "bla <b>bold</b> bla" =~ /$RE/ ) { print "has tag\n" ;}
  
  my $RE_caption = $safe->reval('qr/(\d)/s');
  my (@ret) = ( "a1 b2 c3" =~ /$RE_caption/g );  
  print "@ret\n" ; ## 1 2 3

[download]

I use it to enable confiuration files like that: 

<SERVER>
  port    => 80
  extern  => 1
  listen  => 5
  name    => "Some Server Name\n and a new line"
</SERVER>

<DOMAINS>
  localhost => c:\dev\www
</DOMAINS>

<MYSQL>
DB1 => { user => 'foo' , pass => '123' , host => 'domain.foo' }
<MYSQL>

[download]

Soo, the user can set Perl data structure as a entry (but need to be in one line), since I enable in the compartment the use of anonymous variables ({},[],"",'').

For what you want maybe you can unset some OP and make it more secure. Enjoy! ;-P

Graciliano M. P.
"Creativity is the expression of the liberty".

In reply to Re: User regexps by gmpassos
in thread User regexps by rkg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.