&re_test("x", '^x*');
&re_test("x", 'x*$');

sub re_test {
    my $str = shift;
    my $re_desc = shift;
    my $re = qr/$re_desc/;
    my @matches = ($str =~ /$re/g);
    my $num_match = @matches;
    print "Test String\t>$str<\n",
        "Test Regexp\t>$re_desc<\n",
        "Prematch\t>$`<\n",
        "Match\t\t>$&<\n", 
        "Postmatch\t>$'<\n",
        "Num Matches\t>$NumMatch<\n",
        "Match Arrary:\n",
        map {"\t\t>$_<\n"} @matches;
    print "\n\n";
}