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