\r  133/8021

##</code><code>##

use Data::Dumper;
use IO::Handle
STDOUT->autoflush;

...upload file, etc...

alignSequences("$upload_dir/$filename","$upload_dir/$filename.out");

sub alignSequences {
    my $filename = shift;
    my $fileout = shift;
    open(MSA,"/usr/local/bin/mafft --auto 2>&1 $filename 1> $fileout |") or die "MSA failed: $!\n";  # Redirect STDOUT to a file and STDERR to STDOUT
    while ( <MSA> )
    {   
        print OUTFILE Dumper($_);  # When I print to Dumper, everything with a \r is part of the same $VAR print statement
    }   
    close MSA;
}

##</code><code>##

$VAR1 = "...\r  171 / 8232\r  181 / 8232\r  191 / 8232\r  201 / 8232\r  211 / 8232\r  221 / 8232\r  231 / 8232\r  241 / 8232\r  251 / 8232\r  261 / 8232\r  271 / 8232\r  281 / 8232\r  291 / 8232\r  301 / 8232\r  311 / 8232\r  321 / 8232...";