PERL Q1: Consider the following program: #! /usr/local/bin/perl5.003 -w { my($string) = "brad3hello"; $string =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/; if( defined($1) ) { print "$1\n"; } else { print "not found\n"; } } Explain what the regular expression is trying to match? Q2: If you were writing a perl program as a prototype for a program you would like to eventually write in C (not C++), would this alter how you write the Perl prototype? In what ways? Q3: What does 'my' do? Is it the same as 'local'? Q4: Given a string $text containing multiple lines of text, how do you strip all the html tags? Q5: Given a string $text, write a regular expression to strip the white space from the beginning and end of the string C / C++ Q6: What is the significance of a const variable? Q7: A structure has an integer, a pointer and a char, how big is it? Q8: Whats wrong with the following code: char a[256]; unsigned char x; for( x=0; x