eval ("print \$l->$str$str1(\$str2)");