[Rio-pm] Isso não deveria estar certo???

[Aureliano Guedes]

Monges, cade o erro???

#!/usr/bin/env perl

use strict;
use autodie;

open my $in, "<", $ARGV[0];
my $contig = 0;
while (my $line = <$in>){
    my $ctg = "contig" . $contig;
    #print $line;
    if ($line =~ /<(.+)/){
        print "Ok\n";
        $line = s/$1/$ctg/;
        print $line;
        $contig++;
    }
}

O arquivo é algo como
>blablabla
ACTGAACAGTAGCTACTGACTCGTACGCTCGTAGC
>lalalala
CAGCTGATCGATCGTAGCATGCTACG
 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20121208/11cf1ca7/attachment.html>