my ($line,$file)= ( 3+__LINE__, __FILE__ ); my $func = qq( #line $line "$file" sub $tagname { shift if \$_[0] &&