#! perl
use strict;
use warnings;
use Data::Dump;

my @records;

while (my $line = <DATA>)
{
    chomp(my @r = split / - /, $line);
    push @records, [ @r ];
}

dd @records;

__DATA__
Part Time - Weekend Receptionist - Barton le Clay - Barton-le-Clay (near Luton)
Part-Time Weekend Day Veterinary Nurse - Milton Keynes
Receptionist - Barton-le-Clay (near Luton)
Full Time - Veterinary Nurse - Glasgow Referral - Glasgow