#!/usr/bin/perl

use warnings;
use strict;

my @l;
open (FH3, ">lessons.txt");
        print FH3 "Perl*Lesson1\n";
        print FH3 "Perl*Lesson2\n";
        print FH3 "Perl*Lesson3\n";
        print FH3 "Java*Lesson1\n";
        print FH3 "Java*Lesson2\n";
        print FH3 "Java*Lesson3\n";
        print FH3 "PHP*Lesson1\n";
        print FH3 "PHP*Lesson2\n";
        print FH3 "PHP*Lesson3\n";
close (FH3);


my $l="lessons.txt";
open FH3, "<", $l or die "$l: $!\n";
@l=<FH3>;
for my $line (@l){
    chomp $line;
        my ($part1, $part2) = split /\*/,$line;
}

print "$part1 $part2\n";