$line =~ s/^/|> /;
print $line;




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl