#!/sw/bin/perl -w
##########################
# By: Ventz Petkov       #
# Date: 8-03-05          #
# Parse Pork Text Pastes #
##########################
use strict;

if (@ARGV != 1) {
    print "\t\tUsage: ./porkclean.pl file_containig_paste\n";
    print "\t\tEx: ./porkclean.pl file.txt\n"; exit();
}

open(FP, $ARGV[0]); open(FILE, ">.porkclean.temp");
while (<FP>) { $_ =~ s/^.+?\> //; print $_; print FILE $_; }
rename(".porkclean.temp", $ARGV[0]); close(FP); close(FILE);
