<%args> $recdir <%perl> my $smb_base = 'smb://' . $r->notes('CFG_ip_address') . $r->notes('CFG_smb_path'); $recdir = uri_unescape( $recdir ); ## prototype '#' char problem hack ... oerks $recdir =~ s/___H___/#/g; $recdir =~ s/___A___/'/g; $recdir =~ s/___U___/&/g; my @Files = grep { /\d{3}.vdr/ } glob( "$recdir/*.vdr" ); my $baserec = $r->notes('CFG_RecDir'); map { s/^$baserec\/*/$smb_base/; print "$_\n"; } @Files;