sub test
{
	my $str =shift;
	
	if(length($str)==11)
	{
		$str=~ m/^(\d(\d{6})\d+)$/;
		print"$1 $2\n";
	}
	else
	{
		$str=~ m/^((\d{6})\d+)$/;
		print"$1$2 $2\n";
	}
}

my $a='01234567890';
my $b ='15556667777';

test($a);
test($b);