if ($po->status->name =~ /^(sent|pending|waiting|procratinating|delayed)$/i) {

##</code><code>##

my $status=$pos->status;
if ($status->is('Pending')) {}
if ($status->in(qw(sent pending waitning procrastinating delayed)) { }