6 replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/
source | link

Perl 5, 92 68 55 bytes

Saved 37 bytes thanks to @manatwork@manatwork's help. ;-)

$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_ for/./g

A translation of @Lynn@Lynn Python solution to Perl.

Perl 5, 92 68 55 bytes

Saved 37 bytes thanks to @manatwork's help. ;-)

$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_ for/./g

A translation of @Lynn Python solution to Perl.

Perl 5, 92 68 55 bytes

Saved 37 bytes thanks to @manatwork's help. ;-)

$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_ for/./g

A translation of @Lynn Python solution to Perl.

5 according to manatwork suggestion, I updated my code.
source | link

Perl 5, 92 6868 55 bytes

Saved 2437 bytes thanks to @manatwork's help. ;-)

two versions: (both 68 bytes)

$_=<>;@s=/./g;@a=/[^\Waeiou]/g;for(@s){print$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_;}
$_=<>;@s=$_ for/./g;@a=/[^\Waeiou]/g;@b=@a;for(@s){print$_~~@b?pop@a:$_;}g

A translation of @Lynn Python solution to Perl.

Perl 5, 92 68 bytes

Saved 24 bytes thanks to @manatwork's help. ;-)

two versions: (both 68 bytes)

$_=<>;@s=/./g;@a=/[^\Waeiou]/g;for(@s){print/[^\Waeiou]/?pop@a:$_;}
$_=<>;@s=/./g;@a=/[^\Waeiou]/g;@b=@a;for(@s){print$_~~@b?pop@a:$_;}

A translation of @Lynn Python solution to Perl.

Perl 5, 92 68 55 bytes

Saved 37 bytes thanks to @manatwork's help. ;-)

$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_ for/./g

A translation of @Lynn Python solution to Perl.

4 add an extra blank line to make code snippet show syntax highlight.
source | link

Perl 5, 9292 68 bytes

Saved 24 bytes thanks to @manatwork's help. ;-)

two versions: (both 68 bytes)

$_=<>;@s=split$_=<>;@s=/./;
forg;@a=/[^\Waeiou]/g;for(@s){push@a,$_ if(print/[^\Waeiou]/);?pop@a:$_;}
@b=@a;for
$_=<>;@s=/./g;@a=/[^\Waeiou]/g;@b=@a;for(@s){print$_~~@b?pop@a:$_;}

A translation of @Lynn Python solution to Perl.

Perl, 92 bytes

$_=<>;@s=split//;
for(@s){push@a,$_ if(/[^\Waeiou]/);}
@b=@a;for(@s){print$_~~@b?pop@a:$_;}

A translation of @Lynn Python solution to Perl.

Perl 5, 92 68 bytes

Saved 24 bytes thanks to @manatwork's help. ;-)

two versions: (both 68 bytes)

$_=<>;@s=/./g;@a=/[^\Waeiou]/g;for(@s){print/[^\Waeiou]/?pop@a:$_;}
$_=<>;@s=/./g;@a=/[^\Waeiou]/g;@b=@a;for(@s){print$_~~@b?pop@a:$_;}

A translation of @Lynn Python solution to Perl.

3 Improved formatting.
source | link
2 remove chomp
source | link
1
source | link