my $counter=0;
my $var;
while ($var ne "#")
{
 $var = substr($string,$counter,1);
 $counter++;
}