The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use utf8;
use Moo;
sub journalist {
my ($self) = @_;
my $content_text = $self->content_text;
my ($txt) = $content_text =~ m{(記者/?(\p{Letter}+))\z};
unless ($txt) {
($txt) = $content_text =~ m{\n((中國時報/.+))\z};
}
return $txt;
}
1;