From 047b99efed7379553d65156ae06f27ee0f9c7882 Mon Sep 17 00:00:00 2001
From: satomichan <git-kitte.20250824@satomichan.jp>
Date: Mon, 8 Dec 2025 16:59:06 +0900
Subject: [PATCH] =?utf8?q?=E5=87=BA=E5=8A=9B=E3=81=AE=E6=9C=80=E5=BE=8C?=
 =?utf8?q?=E3=81=A7=E6=94=B9=E8=A1=8C=E3=81=97=E3=81=AA=E3=81=84=E3=81=93?=
 =?utf8?q?=E3=81=A8=E3=81=AB.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 tel2ma.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tel2ma.pl b/tel2ma.pl
index 72ed220..7354d81 100755
--- a/tel2ma.pl
+++ b/tel2ma.pl
@@ -51,23 +51,23 @@ $tel =~ s/-//g;
 
 if($tel =~ /^(0570)(...)(...)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "ナビダイヤル\n";
+    print "ナビダイヤル";
     exit;
 }elsif($tel =~ /^(0120)(...)(...)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "フリーダイヤル\n";
+    print "フリーダイヤル";
     exit;
 }elsif($tel =~ /^(0800)(...)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "フリーダイヤル\n";
+    print "フリーダイヤル";
     exit;
 }elsif($tel =~ /^(050)(....)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "IP電話\n";
+    print "IP電話";
     exit;
 }elsif($tel =~ /^(0[789]0)(....)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "携帯電話\n";
+    print "携帯電話";
     exit;
 }
 
@@ -95,9 +95,9 @@ foreach my $line (<DATA>) {
                 my $subsc =  substr($tel, -4);
 
                 if( $is_only_ma ){
-                    print "${ma}MA\n";
+                    print "${ma}MA";
                 }else{
-                    print "$ac-$exch-$subsc ${ma}MA $munics\n";
+                    print "$ac-$exch-$subsc ${ma}MA $munics";
                 }
 
                 exit;
-- 
2.43.0