There are an infinity of ways of course, but here are some.

substr($s, 0, 1, "");

substr($s, 0, 1) x= 0;

$s =~ /.(.*)/s and $s = $1;

open $s, "<", \$s; seek $s, 1, 0; local $/; $s = <$s>; # using no _add
+ittional_ vars

$s = substr $s, 1;

$s = substr $s, 1, ~0>>1, "JAPH";

$s=~s
s.sss;
[download]

Update 2006 apr 11.

Here is a list of other threads on choping the first character of strings; thanks to Limbic~Region for finding them.

• howto strip the first char of a string?
• Deleting from front of string
• First char out of a string & surprises with errors on chop reverse $string (that doesn't work!)
• Chopping the beginning of a string?
• and this thread, cut of first char of a string

If so many people want this, maybe we really need the chip/chimp functions in perl6?

Also, on substr($s, 0, 1) x= 0;, see substr() as an lvalue.