#!/usr/bin/perl -w

use strict;

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

open(FILE, "<$quotes") || die "Badness: $quotes [$!]\n";

while (<FILE>) {
  chomp;

  my ($quote, $person);
  if (/--/) {
    ($quote, $person) = split /--/;
  } else {
    ($quote, $person) = ($_, '');
  }

  $quote =~ s/^\s+|\s+$//g;
  $person =~ s/^\s+|\s+$//g;
  print "$quote\t$person\n";
}
close FILE || die "Badness: $quotes [$!]\n";