#!/usr/bin/perl -w

print "Enter number : ";
my $num = <STDIN>;
chomp($num);

@nums = split /(?<=[\d])/, $num;

$i = 0;
foreach (@nums)
{
	if ($num =~ /[$i]{$_}/)
	{ print "true"
	} else {
	print "false"; 
	}
$i++;
}