> my $match=qr{ #match the whole record for a widget
> ^ #start of the record
> $border #a border value
> \s* #optional spaces
> $size #a size value
> \s* #optional spaces
> $tag #a tag value
> $ #optional spaces
> }x;
whoops, this should read:
$ #end of record-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
