> 
> string @lines;
> for (long $idx = 0;$idx < @lines.count;$idx++) {
>     $lines[$idx].chomp;
>     if ($lines[$idx] =~ m/Hello/) {
>         $lines[$idx] .= " - World\n";
>     }
>     STDOUT->print($lines[$idx]);
> }

互換性は全くなしか(;´Д`)

参考：2001/01/29(月)02時53分15秒