Essential Perl Code Snippets

unlink <*.html>;

Get File Text in Array and String

open(FM,”main_sidebar.txt”);
my @menu_txt=<FM>;
close(FM);
my $menu=join(”",@menu_txt);

Check if Line Number Equal To 1

if ($. == 1) {
chomp;
}