I would like to replace the two regular expressions below into an equivalent single regular expression, any ideas?

	$DateString = $Line;
	$DateString =~ s/^.*\[//;
	$DateString =~ s/\].*$//;