++ to the above suggestions, apart from the irrelevant anonymous reply.

More generally, however, apart from presentation problems, you should heed the advice constantly repeated on this site by Monks far more experienced than you (or me :-). _Always_: 

use strict;
use warnings;

[download]

Adding these two lines at the beginning of your code as it stands will cause it to fail, printing out a plethora of warnings on the lines of:

Global symbol "@hello1" requires explicit package name at (prog_name) line 11

Work through these, one or two at a time, by declaring the variables in question with my.

A bit painstaking, but less so than posting a question to Perlmonks :-)

And suddenly you'll find why you should have started out by using strict and warnings; that is, when you get to the end of your sub and see that you try to return an array that doesn't exist!

(I assume that your line $tam=@h...; is just a copy/paste issue).

This won't solve your 'bad regex' problem, but it will solve others that you have, as well as others that you could certainly encounter in the future!

HTH

dave

In reply to Re: Bad Regex by Not_a_Number
in thread Bad Regex by nofernandes

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.