package Morihiro;

use utf8;
use Encode;

sub shi{
  my $self = shift;
  my $return_strings;
  while($self =~ /(.*?)([ァ-ヴ]+)ー([^ァ-ヴ])(.*)/g){
    $self = $1.$2.$3.$4
  };
  utf8::is_utf8($self) ? $self = Encode::encode('UTF-8', $self) : $self;
  return $self;
}
1;