open("/usr/share/perl/5.10/unicore/lib/gc_sc/SpacePer.pl", O_RDONLY) = 5
open("/usr/share/perl/5.10/unicore/lib/gc_sc/Digit.pl", O_RDONLY) = 5

##</code><code>##

# Bootstrap some dynamically loaded utf8 stuff.
{
  my $str="8 foo";
  utf8::upgrade($str);
  $str =~ /\p{Digit}/;
  $str =~ /\s/;
  $str = lc $str;
}