#!/usr/bin/perl -w
use Data::Dumper;
$\="\n";

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


	if (@zahlen = ( $text =~ m/$muster/ ) )
		{print ++$count,". wahr: @zahlen\n",Dumper \@zahlen;}
	else
		{print ++$count,". falsch: @zahlen\n",Dumper \@zahlen;}
	
	if (@zahlen = ( $text !~ m/$muster/ ) )
		{print ++$count,". wahr: @zahlen\n",Dumper \@zahlen;}
	else
		{print ++$count,". falsch: @zahlen\n",Dumper \@zahlen;}
	
}