#!/usr/bin/perl -w

use strict;

open INFO, "pkg_info|grep XF|" or die can't smoke that pipe: $!";
#ok, so it's package specific...

chomp( my @input = <INFO> );
foreach(@input){
   s/([\w\.\-\,]+)\s+.*/\1/;
   system "pkg_delete $_";
   print "$_ ==>\n Deleted!\n";
}

#yeah, that regex looks ugly, but it worked.
#I guess I'm most proud that this is the first time I've really used perl for something useful.