ipw.aa-acorp
ipw.aa-ecior
ipw.aa-semio
ipw.aa5vcom
ipw.aa9ttcom
ipw.aaa-rest
ipw.aaaa-uso
ipw.aaaa4aco
ipw.aaacoder
ipw.000store45
ipw.007ontherocks
ipw.00sprint
ipw.06132009
ipw.07029smp
ipw.0912news
ipw.0blivion
ipw.1-online-casino-gambling
ipw.1000bamboo
ipw.100call
ipw.100livesthemovie
ipw.amxcvv
ipw.amfghtr
ipw.amzhjl
ipw.anartc
ipw.angrtf
ipw.aohyuy
ipw.rbvfghtj
ipw.rprhhjf
ipw.rdfghy

##</code><code>##

foreach $username(@arry){ 
    next if $username =~ /ipw\.[0-9]/i;
    next if ($username =~ /ipw\.a[^a-m][a-z]*/); 
        print "$username \n"; 

##</code><code>##

ipw.anartc
ipw.angrtf
ipw.aohyuy
ipw.rbvfghtj
ipw.rprhhjf
ipw.rdfghy