while (my $data = <DATA>) {
    next if $data =~ /^[\pL\pN.*]/;
    # do something with non-rejected $data here
}