Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

use warnings;
use strict;

my @out;
my @list = qx( grep -r 'our \$VERSION' * | grep -v '.svn' | grep -v 'old/' | grep -v '~' ); 
chomp @list;
foreach my $item ( @list ) {
   $item =~ s/:/\t/;
   $item =~ s/[;']//g;
   $item =~ s/our \$VERSION = //;
   push @out, $item;
}

print join( "\n", sort @out ) . "\n"