Guest styx-cc

So in der Art wuerde ich es machen:

Code: (dl )

my $cut_first = sub { substr($_[0], 1, length($_[0])) };

Das length... ist hier unnötig. Wenn nur 2 Argumente an substr übergeben werden, geht perl automatisch bis zum Ende des Strings.