You need to have the expression evaluated in "list context" to get it to return what you are interested in, and you need capturing parentheses inside the pattern to show what you want to collect (in this case, I think it is your entire pattern).
i.e.

($thisresult) = ($teststring =~ /([aft][edt].[ftg]...v{2,3})/g); 
if ($thisresult) {
   if (!$lastresult) {
      print "Expression found\n";
   }
}
$lastresult = $thisresult;
[download]

(Note the parentheses around $thisresult and in the pattern). If the match fails, $thisresult would be set to undef.
See "perldoc perlop" the (section on "m") and "perldoc perlre" for more details

--JAS

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.