my $data=<STDIN>;
        if($data =~ /ipw\.r[^a-p][a-z]*/)
        {
                print "Match\n";
        }
        else
        {
                print "Not Match\n";
        }