@new = grep /accoun.*end/, @array; print "Matched :$_:\n" for @new;