Select Code to Download

print "Enter the Comma Separated Text...:";
$str = <STDIN>;
chomp($str);
...
foreach $val(@arr){
 print "$val\n";
}

#Get the phone number and check to make sure that it contains only dig
+its and the length is 10

...

$phone=~/(d)(ddd)(ddd)(ddd)/;
$formattedphone="+".$1." ".$2." ".$3." ".$4;