gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use utf8;
use Encode;

my $string = "株式会社DeNAは、株式会社グリーのほげほげfoobar
hoafooasdfkj株式会社Googleはほげあｌｋｓｊｄ";

my @list = ($string =~ /株式会社.*?\p{hiragana}/g);
for my $word (@list) {
  if (substr($word, -1, 1) =~ /\p{hiragana}/) {
    $word = substr($word, 0, length($word) - 1);
  }
  print Encode::encode('utf8', $word), "\n";
}

# 実行結果
#----------------
# 株式会社DeNA
# 株式会社グリー
# 株式会社Google
#