#!/usr/bin/perl
use strict;
use warnings;

my @TESTS = ( '.', 0.1, "blabla", "My:name::is::Name" );

print STDERR "\n".('-' x 80)."\n\nGive me a regular expression: ";

while (<>) {

	my ($regexp, $ok);

	chomp;

	last if /^\+\+quit\+\+$/;

	$regexp = $_;

	foreach my $check (@TESTS) {

		$ok = 0;

		$check =~ /$regexp/i && ($ok = 1);

		printf STDOUT "%-30s /%-30s/ %s\n", $check, "$regexp", $ok;

	};

	print STDERR "\n".('-' x 80)."\n\nGive me a regular expression: ";

};

exit(0);
