# Prints out all the prime numbers between 1 and 100

for(1..100){
	print $_,"\n" unless((1x$_)=~/^(11+)\1+$/);
}