Problem $7$

Extract the variables. In Perl, variables begin with a $ or @ symbol. The next character can be a letter or underscore. The rest of the variable name can be letters, digits, or underscores. In Perl, @$\_$ is a valid variable, too!

In this program, some of the variables are: $lname$,$ $fname, $sid, $LIST$\_$SEP, @line, $first$4,$ $full$\_$name, @$\_,$ $password, $...$

extract$($r$\text{'}\backslash$$$[$a$-$zA$-$Z$\_]\backslash$w$*|\backslash$@$[$a$-$zA$-$Z$\_]\backslash$w$*\text{'},$ "perl.txt$")$

$---------------------------------------------------------------------------$

NameError Traceback $($most recent call last$)$

in

$---->1$ extract$($r$\text{'}\backslash$$$[$a$-$zA$-$Z$\_]\backslash$w$*|\backslash$@$[$a$-$zA$-$Z$\_]\backslash$w$*\text{'},$ "perl.txt$")$

NameError: name 'extract' is not defined