Nayab wrote:
my $test = "*****STAFF*****";
if ($test =~ /(\*{1})(.*)(\*{1})/) {
Could be more simply written as:
if ($test =~ /\*(.*)\*/) {
$test = $1; }
John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
