Select Code to Download

# split
my ($key, $string1) = split /=/, $_, 2;
print "$key, $string1\n";

#re 1
/^TITLE=(.*)/;
...
# substr
my $string4 = substr($_, 6);
print "$string4\n";