#!/usr/local/bin/perl

while (defined($line = <>))
{
  chomp($line);
  print "Je dis $line!n";
}