my $template = $dir eq 'R' ? '<' x $max_length : '>' x $max_length;