Select Code to Download

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

ipw.raasdfdsf
Not Match
...
Not Match
ipw.rrwgorga
Match