Discussion on: Daily Challenge #1 - String Peeler

[Jordon Replogle]

Perl?

$testing = "Happy coding!";
print &peeler($testing) . "\n";

sub peeler {
    my $str = shift;
    if(length($str) > 2) {
        return substr($str, 1, -1);
    }
}

[E. Choroba]

Or maybe just

sub peeler { shift =~ s/^.|.$//gr }