Select Code to Download

my $str;
$str = "drwxr-xr-x    2 jonnyq   jonnyq       4096 Sep 21 18:52 bin";

my $file = substr $str, 56;

if ( $string =~ /\s(\S+)\s*$/) { print $1, "\n" };

my $filename = (split /\s+/, $string)[-1];
print $filename, "\n";