$ perl -e 'my $p = qw{Perl}; print ++$p'
Perm