$tekst="Juku tuli koolist";
$tekst =~ s/^/> /;
print "$tekst\n";