my @string = ('1. for future assistance ...','* You can also ...','Page 2,','12345'); foreach my $string (@string){ if(($string !~ /(^[0-9]\.)|(^[*])|(^[A-Za-z])/)){ print "$string\n"; } } #OUTPUT #12345