Create gem install command list (not mine found it somewhere on the internet)

gem_list.pl

#!/usr/bin/perl -w

# We're strict
use strict;

# Get list of installed gems
my @gems = qx(gem list);
chomp(@gems);

# Create commands
foreach my $gem (@gems)
{
        # Match gem and versions
        $gem =~ m/(\S+)\s\((.+)\)/i;
        # Gem name
        $gem = $1;
        # Save them into array
        my @gem_versions = split(/,/, $2);
        # Print out commands
        foreach (@gem_versions)
        {
                # Remove all whitespaces
                $_ =~ s/^\s+//;
                print "sudo gem install $gem --version=$_ --no-ri --no-rdoc\n";
        }
}