use URI::Escape;

my $filename = URI::Escape::uri_escape( $link->url_abs->path );

# /pdf/100004/_20090326.pdf
# %2Fpdf%2F100004%2F_20090326.pdf