Help for this page
$Start = substr(++($Start="z$Start"),1);
#!/usr/bin/perl -w #-*-perl-*- ... # below is where the magic happens $Start = substr(++($Start="z$Start"),1); }