#!/usr/bin/perl

use strict;
use warnings;

# Lade einfachen HTML-Code in-place in $a:
my $a=<<__EOF;
<html>
	<head>
		<title>Hello world!</title>
	</head>
	<body>
		<h1>Hello world!</h1>
		<p>
			Es lebt!
		</p>
	</body>
</html>
__EOF

# Ueberpruefe, ob $a HTML-/XML-Tags enthaelt:
if($a=~/<.*>/){

	# Suche alle HTML-/XML-Tags aus $a:
	my @b=($a=~/<.*?>/g);
	
	# Inhalt von Array @b:
	# @b=('<html>','<head>','<title>','</title>','</head>','<body>','<h1>',
	#     '</h1>','<p>','</p>','</body>','</html>')
	printf("HTML-/XML-Tags:\n%s\n\n",join(', ',@b));
	
	# Suche alle HTML-/XML-Tags aus $a aber KEINE Close-Tags:
	my @c=($a=~/<[^\/].*?>/g);
	
	# Inhalt von Array @c:
	# @c=('<html>','<head>','<title>','<body>','<h1>','<p>')
	printf("HTML-/XML-Tags ohne Close-Tags:\n%s\n\n",join(', ',@c));
	
}
else{
	print("Text enthaelt keine Tags.\n");
}
