$filename =~ s!.*[/\]([^/\]*?)!$1!;