$line =~ s/^/|> /; print $line; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl