Help for this page

Select Code to Download

Select or download this

$ perl -E '
$text = q{asd<TAG>dsyuhf</TAG>urrh};
...
say $item;'
dsyuhf
$

Select or download this

$ perl -E '
$text = q{asd<TAG>dsyuhf</TAG>urrh<TAG>dsvnnhf</TAG>urubb};
...
say $item;'
dsyuhf</TAG>urrh<TAG>dsvnnhf
$