my $i;
print join '', grep $i++>1, split //, '#!just another perl hacker';