my $record = "662-5555";
my $record = "+1 102 892-1314";

while($record =~ m/(^\d{3}-\d{4}$)/) {
	print "$record";
}