1.pl

#!/usr/bin/perl
use strict;
use warnings;
$, = "\n";
print split /。/, $ARGV[0];
print "\n";