#!/usr/bin/perl -w

$muster ='(\d+\.\d+)';
$text = 4.12;
print "\$text: $text\n";


if (@zahlen = $text =~ m/$muster/)
	{print "(1) wahr: @zahlen\n";}
	else
	{print "(1) falsch: @zahlen\n";}
	
if (@zahlen = $text !~ m/$muster/)
	{print "(2) wahr: @zahlen\n";}
	else
	{print "(2) falsch: @zahlen\n";}
	
	
$text = 4.0;
print "\$text: $text\n";


if (@zahlen = $text =~ m/$muster/)
	{print "(3) wahr: @zahlen\n";}
	else
	{print "(3) falsch: @zahlen\n";}
	
if (@zahlen = $text !~ m/$muster/)
	{print "(4) wahr: @zahlen\n";}
	else
	{print "(4) falsch: @zahlen\n";}