#!/usr/bin/perl -w

print "Tapez une phrase qui se termine par le mot perl: ";
$ligne=;