1
2
3
4
5

$text = 'www.google.de/foo/bar.html';

$text =~ s![^/]*$!!;

print $text, $/;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!