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

##</code><code>##

my $file = substr $str, 56;

##</code><code>##

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

##</code><code>##

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