$_ = '<S>abc<E> <S>def<E>';

print("Greedy:\n");     print("  $1\n") while /<S>(.*)<E>/g;
print("Non-greedy:\n"); print("  $1\n") while /<S>(.*?)<E>/g;