#!/usr/bin/perl -w

use strict;

while(<>)
{
    s/perl/java/gi;
    print;
}