my $text="../files/jack/2012/derpone.pdf";
$text=~ s/..\/\w*\/\w*\/\d\d\d\d\///g;

##</code><code>##

my $text="../files/jack/2012/derpone.pdf";
$text=~ s/..\/\w*\/\w*\/\d\d\d\d\///g;
$cgi->h1($text),