HA☆NA☆SEジェネレーター

どうぞご利用ください。

usage

% perl yugioh.pl はなせ  
HA☆NA☆SE

yugioh.pl

#!/usr/bin/perl
use strict;
use warnings;

use Lingua::JA::Romanize::Japanese;

my $phrase = shift;
my $conv = Lingua::JA::Romanize::Japanese->new();

my @romanized = $conv->string($phrase);
my $result = join '☆', map {uc($_->[1])} @romanized;
print "$result\n";