Select Code to Download

#!/usr/bin/perl

...
    $_[0]->{_string};
}

#!/usr/bin/perl
#  Converts a long file name with spaces or underscores 
...
my $ext = pop @array;
print map m/^([\w])/, @array;
print '.' . $ext . "\n";