[url=http://perldoc.perl.org/functions/open.html][black][b]open[/b][/black][/url] [red]([/red]IN, [red]'[/red][purple]P:\Directory\AFile.txt[/purple][red]'[/red][red])[/red][red];[/red]
[black][b]open[/b][/black] [red]([/red]OUT,[red]'[/red][purple]>P:\Directory\BFile.txt[/purple][red]'[/red][red])[/red][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]%hTmp[/blue][red];[/red]
[olive][b]while[/b][/olive] [red]([/red][black][b]my[/b][/black] [blue]$Line5[/blue] = <IN>[red])[/red] [red]{[/red]
[blue]$Line5[/blue] = [url=http://perldoc.perl.org/functions/lc.html][black][b]lc[/b][/black][/url] [blue]$Line5[/blue][red];[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] OUT [blue]$Line5[/blue] [olive][b]unless[/b][/olive] [red]([/red][blue]$hTmp[/blue][red]{[/red][blue]$Line5[/blue][red]}[/red]++[red])[/red][red];[/red]
[red]}[/red]
[maroon]close[/maroon] [red]([/red]IN[red])[/red][red];[/red] [maroon]close[/maroon] [red]([/red]OUT[red])[/red][red];[/red]