note
choroba
<c>
$text = @_;
</c><P>
This evaluates @_ in scalar context, returning the number of parameters instead of the actual value. Instead, use
<c>
my ($text) = @_;
</c><P>
Also,
<c>
if ($_ =~ ".*user_name.*"){
</c><P>
is better written as
<c>
if (/user_name/) {
</c><P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
<c>map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]</c>
</div></div><!-- Wiki2Monks {"version":1.161} -->
11136202
11136410