cotejas: $line ~= /^\s+[\w\d]$/; sustituyes: $line ~= s/^\s+([\w\d]+)$/$1/; saludos! --------- Pie de mensaje -------------------------------- Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml Cancelar inscripcion: mail to: majordomo@tlali.iztacala.unam.mx text : unsubscribe perl