Dr.Ruud wrote:
"Mumia W." schreef:my $lang = ($topdir =~ /([^\/]+)$/)[0];ITYRMSL: my ($lang) = $topdir =~ m~([^/]+)$~;
IDUWYM. CYETUP? Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/