#!/usr/bin/perl
#

$dpkg_output = `export COLUMNS=250;dpkg -l | grep ^rc`;

while($dpkg_output =~ m/rc[ ]*([a-zA-Z0-9-.+]+)[ ]*.*/g){
	print "Attempting to remove ".$1."\n";
	`dpkg --purge $1\n`;
}