wavedash.pl

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode qw(encode);

my $data = "～－あいうえお";

$data =~ tr/\x{ff5e}\x{ff0d}/\x{301c}\x{2212}/;

my $encoded = encode 'euc-jp', $data;

my $file = 'wavedash.txt';

open my $fh, '>', $file or die $!;

print $fh $encoded;

close $fh;