Réécrire en n'utilisant que la variable spéciale $_ (voir ci-dessous, variables scalaires 5et 6)

• #!/usr/bin/perl -w 
  #On affiche "Saisir une nouvelle ligne : " 
  print "Saisir une nouvelle ligne : "; 
  #Tant qu'on peut lire la dernière chaîne de caractères venant de l'entrée standard clavier, on exécute le bloc 
  while (<>) { 	
  	#On ajoute, à la suite du contenu de la variable $texte, le contenu de la variable $_ (qui contient la 	dernière ligne lue) 	
  	$texte .= $_; 
  } 
  #On affiche "Vous avez saisi le texte ", suivi d'un retour à la ligne, suivi du contenu de la variable $texte, et suivi d'un retour à la ligne 
  print "Vous avez saisi le texte \n $texte \n";
  

•