use strict;
use warnings;

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