use strict; my $text = '/install/sql/foo.c@@/main/integration/1'; my ($value) = $text =~ /\/([^\/]+?)@/;
e.g. /install/sql/foo.c@@/main/integration/1 _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
