my $newval;
if ($line =~ /^\$mypic\[0] = "(\w{3})"$/) {
   $newval = $1;
}
else {
   # handle failure to get essential value
}