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




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl