b write_line {

     # This is called back from perltidy line-by-line
     # We&#39;re looking for $`, $&amp;, and $&#39;
     my ( $self, $line_of_tokens ) = @_;

     # pull out some stuff we might need
     my $line_type         = $line_of_tokens-&gt;{_line_type};
     my $input_line_number = $line_of_tokens-&gt;{_line_number};
     my $input_line        = $line_of_tokens-&gt;{_line_text};
     my $rtoken_type       = $line_of_tokens-&gt;{_rtoken_type};
     my $rtokens           = $line_of_tokens-&gt;{_