Welcome to PerlMonks!

Please put your code, input data and output within <code>code goes here</code> tags. It makes it much easier to read and test your code, and your question will get much more attention.

Cheers,

-stevieb

EDIT: for the time being, here's the OPs original post:

Begin OP...

I have a line of code which appears to cause my unassigned utf8 program to hang. The line if ( $line =~ /\p{Unassigned}+/ ) { seems to be the culprit. When I replace the category expression with any other /\p expression the program runs fine. Is there extra code needed for the unassigned category? Remember you are working with a newbie. Any help appreciate. John

$filename = "myfile"; 

print "\nThis program uses a real expression found on http://www.regul
+ar-expressions.info/unicode.html#category"; 

open( my $fh, '< :encoding(UTF-8)', $filename ) 
  or die "Cannot open $filename: $!"; 

while ( my $line = <$fh> ) { 

    if ( $line =~ /\p{Unassigned}+/ ) { 
        print "$line\n"; 
    } 
} 

print "\nThis program uses a real expression found on http://www.regul
+ar-expressions.info/unicode.html#category"; 

close $fh;
[download]