The program with the corrections (with file try3.txt same data):

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

open my $fh, '<', 'try3.txt' or die $!; # try3.txt contains the data

my $s;

{
    local $/ = undef;
    $s = <$fh>; # slurp file    
}

close $fh or die "read file close error: $!";



my @data = map {$_->[0]}
          sort {$b->[1] <=> $a->[1]}
           map {[$_, /(\d+)%/]} split(/(?<=workspace\/data)\n/, $s);


say for @data;
[download]