- } elsif ($char eq '$' # start of dollar quoting
- && ($tag_end = index($_, '$', $i + 1)) > -1 # ends on same line
- && (do { substr($_, $i + 1, $tag_end - $i - 1); 1 }) # extract tag
- && $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
+ } elsif ($char eq '$' # start of dollar quoting
+ && ($tag_end = index($_, '$', $i + 1)) > -1 # ends on same line
+ && (do { $tag = substr($_, $i + 1, $tag_end - $i - 1); 1 }) # extract tag
+ && $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier