I understand why it doesn't print outside the block, just not clear on how to make $part1 or $part2 print outside the block.
Sorry for my newbie questions....
#!/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";
}