Help for this page
while ($raw =~ /\G([\w ]*)/g) { ... } } }
sub { my $t_ref = shift; ... confess("This shouldn't happen"); } }