use File::Find::Rule;

my $base_dir = "/usr/home/username/public_html/registrations/$dir";
my $find_rule = File::Find::Rule->new;

foreach $item (@files) {
	$item =~ s/\/usr\/home\/username\/public_html\/registrations\/$dir\///g;
	print "<a href=\"https://www.domain.com/registrations/$dir/$item\">$item</a><br>";
	}