#!/usr/bin/perl -w

use strict;

my $quotes = "/home/gtheys/quotes";

open(FILE,"<$quotes");

while (<FILE>) {
        chomp;
        my ($quote,$person) = split /--/;
        $quote =~ s/^\s+|\s+$//g;
        $person =~ s/^\s+|\s+$//g;
        print "$quote\t$person\n";
}
close FILE;