Pasar sencillo programa en Python a PERL

[neodani]

Buenas,

Me he empollado un tutorial de como aprender PERL en 5 días, pero no he conseguido transformar este script programado en PYTHON, muy sencillo a PERL.

Espero que alguien me ayude, seguro que es muy fácil, pero no soy capaz!!

Al programa se le pasa un argumento (nombre del archivo de txt) el cual transforma y guarda la transformación en otro archivo de texto.

PROGRAMA EN PYTHON

Código:

import sys, os

entrada=sys.argv[1]
file = open(entrada,'r')
file_salida = open('alias_retocados.txt', 'w')

user2 =' '
correo=''

for linea in file:
            user1 = linea.split(';')[0]
            if user2 in user1:

                        correo2 = (linea.split(';')[1]).split('\n')[0]
                        print correo +';'+ correo2

             if not 'Alias de ' in user1:
                        correo = (linea.split(';')[1]).split('\n')[0]

            user2 = user1

FICHERO ENTRADA

Código:

ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
ortopedia450;[email protected]
Alias de ortopedia450;[email protected]
Alias de ortopedia450;[email protected]
ortopedia454;[email protected]
ortopedia455;[email protected]
Alias de ortopedia455;[email protected]
ortopedia456;[email protected]
ortopedia457;[email protected]
Alias de ortopedia457;[email protected]

Y aquí la SALIDA que consige el programa

Código:

[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]

Alguien puede echarle un vistazo?

Gracias de antemano!!