Geforce File Manager

NAME	SIZE	ACTIONS
📄 perl.pod	16,270 B	[ EDIT ] \| [ DEL ]
📄 perl5004delta.pod	56,240 B	[ EDIT ] \| [ DEL ]
📄 perl5005delta.pod	34,283 B	[ EDIT ] \| [ DEL ]
📄 perl5100delta.pod	55,535 B	[ EDIT ] \| [ DEL ]
📄 perl5101delta.pod	43,888 B	[ EDIT ] \| [ DEL ]
📄 perl5120delta.pod	89,272 B	[ EDIT ] \| [ DEL ]
📄 perl5121delta.pod	10,141 B	[ EDIT ] \| [ DEL ]
📄 perl5122delta.pod	9,603 B	[ EDIT ] \| [ DEL ]
📄 perl5123delta.pod	4,100 B	[ EDIT ] \| [ DEL ]
📄 perl5124delta.pod	3,672 B	[ EDIT ] \| [ DEL ]
📄 perl5125delta.pod	7,683 B	[ EDIT ] \| [ DEL ]
📄 perl5140delta.pod	144,324 B	[ EDIT ] \| [ DEL ]
📄 perl5141delta.pod	7,966 B	[ EDIT ] \| [ DEL ]
📄 perl5142delta.pod	6,892 B	[ EDIT ] \| [ DEL ]
📄 perl5143delta.pod	7,760 B	[ EDIT ] \| [ DEL ]
📄 perl5144delta.pod	6,327 B	[ EDIT ] \| [ DEL ]
📄 perl5160delta.pod	133,651 B	[ EDIT ] \| [ DEL ]
📄 perl5161delta.pod	6,142 B	[ EDIT ] \| [ DEL ]
📄 perl5162delta.pod	3,594 B	[ EDIT ] \| [ DEL ]
📄 perl5163delta.pod	4,085 B	[ EDIT ] \| [ DEL ]
📄 perl5180delta.pod	119,431 B	[ EDIT ] \| [ DEL ]
📄 perl5181delta.pod	6,595 B	[ EDIT ] \| [ DEL ]
📄 perl5182delta.pod	5,335 B	[ EDIT ] \| [ DEL ]
📄 perl5184delta.pod	4,642 B	[ EDIT ] \| [ DEL ]
📄 perl5200delta.pod	115,699 B	[ EDIT ] \| [ DEL ]
📄 perl5201delta.pod	10,899 B	[ EDIT ] \| [ DEL ]
📄 perl5202delta.pod	12,509 B	[ EDIT ] \| [ DEL ]
📄 perl5203delta.pod	9,392 B	[ EDIT ] \| [ DEL ]
📄 perl5220delta.pod	130,963 B	[ EDIT ] \| [ DEL ]
📄 perl5221delta.pod	10,767 B	[ EDIT ] \| [ DEL ]
📄 perl5222delta.pod	12,629 B	[ EDIT ] \| [ DEL ]
📄 perl5223delta.pod	8,456 B	[ EDIT ] \| [ DEL ]
📄 perl5224delta.pod	4,460 B	[ EDIT ] \| [ DEL ]
📄 perl5240delta.pod	64,927 B	[ EDIT ] \| [ DEL ]
📄 perl5241delta.pod	8,215 B	[ EDIT ] \| [ DEL ]
📄 perl5242delta.pod	4,113 B	[ EDIT ] \| [ DEL ]
📄 perl5243delta.pod	11,428 B	[ EDIT ] \| [ DEL ]
📄 perl5244delta.pod	4,510 B	[ EDIT ] \| [ DEL ]
📄 perl5260delta.pod	101,836 B	[ EDIT ] \| [ DEL ]
📄 perl5261delta.pod	7,927 B	[ EDIT ] \| [ DEL ]
📄 perl5262delta.pod	7,880 B	[ EDIT ] \| [ DEL ]
📄 perl5263delta.pod	7,063 B	[ EDIT ] \| [ DEL ]
📄 perl5280delta.pod	72,113 B	[ EDIT ] \| [ DEL ]
📄 perl561delta.pod	124,713 B	[ EDIT ] \| [ DEL ]
📄 perl56delta.pod	107,201 B	[ EDIT ] \| [ DEL ]
📄 perl581delta.pod	38,061 B	[ EDIT ] \| [ DEL ]
📄 perl582delta.pod	4,470 B	[ EDIT ] \| [ DEL ]
📄 perl583delta.pod	6,335 B	[ EDIT ] \| [ DEL ]
📄 perl584delta.pod	7,363 B	[ EDIT ] \| [ DEL ]
📄 perl585delta.pod	5,889 B	[ EDIT ] \| [ DEL ]
📄 perl586delta.pod	4,651 B	[ EDIT ] \| [ DEL ]
📄 perl587delta.pod	8,357 B	[ EDIT ] \| [ DEL ]
📄 perl588delta.pod	25,272 B	[ EDIT ] \| [ DEL ]
📄 perl589delta.pod	53,900 B	[ EDIT ] \| [ DEL ]
📄 perl58delta.pod	115,165 B	[ EDIT ] \| [ DEL ]
📄 perlaix.pod	20,437 B	[ EDIT ] \| [ DEL ]
📄 perlamiga.pod	5,749 B	[ EDIT ] \| [ DEL ]
📄 perlandroid.pod	7,871 B	[ EDIT ] \| [ DEL ]
📄 perlapi.pod	443,535 B	[ EDIT ] \| [ DEL ]
📄 perlapio.pod	19,285 B	[ EDIT ] \| [ DEL ]
📄 perlartistic.pod	7,010 B	[ EDIT ] \| [ DEL ]
📄 perlbook.pod	8,338 B	[ EDIT ] \| [ DEL ]
📄 perlboot.pod	294 B	[ EDIT ] \| [ DEL ]
📄 perlbot.pod	304 B	[ EDIT ] \| [ DEL ]
📄 perlbs2000.pod	8,058 B	[ EDIT ] \| [ DEL ]
📄 perlcall.pod	56,706 B	[ EDIT ] \| [ DEL ]
📄 perlce.pod	14,602 B	[ EDIT ] \| [ DEL ]
📄 perlcheat.pod	4,481 B	[ EDIT ] \| [ DEL ]
📄 perlclib.pod	9,619 B	[ EDIT ] \| [ DEL ]
📄 perlcn.pod	4,691 B	[ EDIT ] \| [ DEL ]
📄 perlcommunity.pod	7,217 B	[ EDIT ] \| [ DEL ]
📄 perlcygwin.pod	27,199 B	[ EDIT ] \| [ DEL ]
📄 perldata.pod	46,743 B	[ EDIT ] \| [ DEL ]
📄 perldbmfilter.pod	4,981 B	[ EDIT ] \| [ DEL ]
📄 perldebguts.pod	38,535 B	[ EDIT ] \| [ DEL ]
📄 perldebtut.pod	22,152 B	[ EDIT ] \| [ DEL ]
📄 perldebug.pod	39,258 B	[ EDIT ] \| [ DEL ]
📄 perldelta.pod	7,063 B	[ EDIT ] \| [ DEL ]
📄 perldeprecation.pod	18,169 B	[ EDIT ] \| [ DEL ]
📄 perldiag.pod	284,572 B	[ EDIT ] \| [ DEL ]
📄 perldos.pod	10,522 B	[ EDIT ] \| [ DEL ]
📄 perldsc.pod	25,614 B	[ EDIT ] \| [ DEL ]
📄 perldtrace.pod	7,958 B	[ EDIT ] \| [ DEL ]
📄 perlebcdic.pod	84,233 B	[ EDIT ] \| [ DEL ]
📄 perlembed.pod	37,196 B	[ EDIT ] \| [ DEL ]
📄 perlexperiment.pod	7,195 B	[ EDIT ] \| [ DEL ]
📄 perlfork.pod	13,355 B	[ EDIT ] \| [ DEL ]
📄 perlform.pod	16,608 B	[ EDIT ] \| [ DEL ]
📄 perlfreebsd.pod	1,610 B	[ EDIT ] \| [ DEL ]
📄 perlfunc.pod	392,957 B	[ EDIT ] \| [ DEL ]
📄 perlgit.pod	33,509 B	[ EDIT ] \| [ DEL ]
📄 perlgpl.pod	13,815 B	[ EDIT ] \| [ DEL ]
📄 perlguts.pod	139,329 B	[ EDIT ] \| [ DEL ]
📄 perlhack.pod	40,445 B	[ EDIT ] \| [ DEL ]
📄 perlhacktips.pod	55,509 B	[ EDIT ] \| [ DEL ]
📄 perlhacktut.pod	6,153 B	[ EDIT ] \| [ DEL ]
📄 perlhaiku.pod	1,508 B	[ EDIT ] \| [ DEL ]
📄 perlhist.pod	53,546 B	[ EDIT ] \| [ DEL ]
📄 perlhpux.pod	30,509 B	[ EDIT ] \| [ DEL ]
📄 perlhurd.pod	1,993 B	[ EDIT ] \| [ DEL ]
📄 perlintern.pod	54,572 B	[ EDIT ] \| [ DEL ]
📄 perlinterp.pod	33,687 B	[ EDIT ] \| [ DEL ]
📄 perlintro.pod	22,119 B	[ EDIT ] \| [ DEL ]
📄 perliol.pod	34,185 B	[ EDIT ] \| [ DEL ]
📄 perlipc.pod	70,829 B	[ EDIT ] \| [ DEL ]
📄 perlirix.pod	4,395 B	[ EDIT ] \| [ DEL ]
📄 perljp.pod	7,521 B	[ EDIT ] \| [ DEL ]
📄 perlko.pod	12,259 B	[ EDIT ] \| [ DEL ]
📄 perllexwarn.pod	355 B	[ EDIT ] \| [ DEL ]
📄 perllinux.pod	1,488 B	[ EDIT ] \| [ DEL ]
📄 perllocale.pod	68,678 B	[ EDIT ] \| [ DEL ]
📄 perllol.pod	9,580 B	[ EDIT ] \| [ DEL ]
📄 perlmacos.pod	1,001 B	[ EDIT ] \| [ DEL ]
📄 perlmacosx.pod	12,060 B	[ EDIT ] \| [ DEL ]
📄 perlmod.pod	26,250 B	[ EDIT ] \| [ DEL ]
📄 perlmodinstall.pod	12,792 B	[ EDIT ] \| [ DEL ]
📄 perlmodlib.pod	76,482 B	[ EDIT ] \| [ DEL ]
📄 perlmodstyle.pod	22,575 B	[ EDIT ] \| [ DEL ]
📄 perlmroapi.pod	3,212 B	[ EDIT ] \| [ DEL ]
📄 perlnetware.pod	6,648 B	[ EDIT ] \| [ DEL ]
📄 perlnewmod.pod	11,036 B	[ EDIT ] \| [ DEL ]
📄 perlnumber.pod	8,353 B	[ EDIT ] \| [ DEL ]
📄 perlobj.pod	35,537 B	[ EDIT ] \| [ DEL ]
📄 perlootut.pod	26,783 B	[ EDIT ] \| [ DEL ]
📄 perlop.pod	136,252 B	[ EDIT ] \| [ DEL ]
📄 perlopenbsd.pod	1,204 B	[ EDIT ] \| [ DEL ]
📄 perlopentut.pod	9,455 B	[ EDIT ] \| [ DEL ]
📄 perlos2.pod	93,351 B	[ EDIT ] \| [ DEL ]
📄 perlos390.pod	15,674 B	[ EDIT ] \| [ DEL ]
📄 perlos400.pod	4,768 B	[ EDIT ] \| [ DEL ]
📄 perlpacktut.pod	51,282 B	[ EDIT ] \| [ DEL ]
📄 perlperf.pod	49,881 B	[ EDIT ] \| [ DEL ]
📄 perlplan9.pod	5,125 B	[ EDIT ] \| [ DEL ]
📄 perlpod.pod	22,196 B	[ EDIT ] \| [ DEL ]
📄 perlpodspec.pod	68,476 B	[ EDIT ] \| [ DEL ]
📄 perlpolicy.pod	25,629 B	[ EDIT ] \| [ DEL ]
📄 perlport.pod	87,602 B	[ EDIT ] \| [ DEL ]
📄 perlpragma.pod	5,176 B	[ EDIT ] \| [ DEL ]
📄 perlqnx.pod	6,673 B	[ EDIT ] \| [ DEL ]
📄 perlre.pod	120,901 B	[ EDIT ] \| [ DEL ]
📄 perlreapi.pod	30,334 B	[ EDIT ] \| [ DEL ]
📄 perlrebackslash.pod	31,817 B	[ EDIT ] \| [ DEL ]
📄 perlrecharclass.pod	49,029 B	[ EDIT ] \| [ DEL ]
📄 perlref.pod	35,304 B	[ EDIT ] \| [ DEL ]
📄 perlreftut.pod	18,790 B	[ EDIT ] \| [ DEL ]
📄 perlreguts.pod	38,328 B	[ EDIT ] \| [ DEL ]
📄 perlrepository.pod	509 B	[ EDIT ] \| [ DEL ]
📄 perlrequick.pod	18,497 B	[ EDIT ] \| [ DEL ]
📄 perlreref.pod	14,744 B	[ EDIT ] \| [ DEL ]
📄 perlretut.pod	121,257 B	[ EDIT ] \| [ DEL ]
📄 perlriscos.pod	1,529 B	[ EDIT ] \| [ DEL ]
📄 perlrun.pod	53,550 B	[ EDIT ] \| [ DEL ]
📄 perlsec.pod	26,184 B	[ EDIT ] \| [ DEL ]
📄 perlsolaris.pod	29,822 B	[ EDIT ] \| [ DEL ]
📄 perlsource.pod	6,876 B	[ EDIT ] \| [ DEL ]
📄 perlstyle.pod	8,630 B	[ EDIT ] \| [ DEL ]
📄 perlsub.pod	72,967 B	[ EDIT ] \| [ DEL ]
📄 perlsymbian.pod	15,359 B	[ EDIT ] \| [ DEL ]
📄 perlsyn.pod	44,512 B	[ EDIT ] \| [ DEL ]
📄 perlsynology.pod	7,778 B	[ EDIT ] \| [ DEL ]
📄 perlthrtut.pod	46,459 B	[ EDIT ] \| [ DEL ]
📄 perltie.pod	38,607 B	[ EDIT ] \| [ DEL ]
📄 perltoc.pod	694,171 B	[ EDIT ] \| [ DEL ]
📄 perltodo.pod	376 B	[ EDIT ] \| [ DEL ]
📄 perltooc.pod	294 B	[ EDIT ] \| [ DEL ]
📄 perltoot.pod	294 B	[ EDIT ] \| [ DEL ]
📄 perltrap.pod	10,620 B	[ EDIT ] \| [ DEL ]
📄 perltru64.pod	8,492 B	[ EDIT ] \| [ DEL ]
📄 perltw.pod	4,477 B	[ EDIT ] \| [ DEL ]
📄 perlunicode.pod	82,491 B	[ EDIT ] \| [ DEL ]
📄 perlunicook.pod	25,488 B	[ EDIT ] \| [ DEL ]
📄 perlunifaq.pod	13,647 B	[ EDIT ] \| [ DEL ]
📄 perluniintro.pod	38,340 B	[ EDIT ] \| [ DEL ]
📄 perluniprops.pod	285,306 B	[ EDIT ] \| [ DEL ]
📄 perlunitut.pod	7,951 B	[ EDIT ] \| [ DEL ]
📄 perlutil.pod	7,640 B	[ EDIT ] \| [ DEL ]
📄 perlvar.pod	78,364 B	[ EDIT ] \| [ DEL ]
📄 perlvms.pod	50,823 B	[ EDIT ] \| [ DEL ]
📄 perlvos.pod	3,843 B	[ EDIT ] \| [ DEL ]
📄 perlwin32.pod	39,298 B	[ EDIT ] \| [ DEL ]
📄 perlxs.pod	78,920 B	[ EDIT ] \| [ DEL ]
📄 perlxstut.pod	50,095 B	[ EDIT ] \| [ DEL ]
📄 perlxstypemap.pod	24,001 B	[ EDIT ] \| [ DEL ]

[ CLOSE ]

EDIT: perltrap.pod

=head1 NAME

perltrap - Perl traps for the unwary

=head1 DESCRIPTION

The biggest trap of all is forgetting to C<use warnings> or use the B<-w>
switch; see L<warnings> and L<perlrun>. The second biggest trap is not
making your entire program runnable under C<use strict>.  The third biggest
trap is not reading the list of changes in this version of Perl; see
L<perldelta>.

=head2 Awk Traps

Accustomed B<awk> users should take special note of the following:

=over 4

=item *

A Perl program executes only once, not once for each input line.  You can
do an implicit loop with C<-n> or C<-p>.

=item *

The English module, loaded via

use English;

allows you to refer to special variables (like C<$/>) with names (like
$RS), as though they were in B<awk>; see L<perlvar> for details.

=item *

Semicolons are required after all simple statements in Perl (except
at the end of a block).  Newline is not a statement delimiter.

=item *

Curly brackets are required on C<if>s and C<while>s.

=item *

Variables begin with "$", "@" or "%" in Perl.

=item *

Arrays index from 0.  Likewise string positions in substr() and
index().

=item *

You have to decide whether your array has numeric or string indices.

=item *

Hash values do not spring into existence upon mere reference.

=item *

You have to decide whether you want to use string or numeric
comparisons.

=item *

Reading an input line does not split it for you.  You get to split it
to an array yourself.  And the split() operator has different
arguments than B<awk>'s.

=item *

The current input line is normally in $_, not $0.  It generally does
not have the newline stripped.  ($0 is the name of the program
executed.)  See L<perlvar>.

=item *

$<I<digit>> does not refer to fields--it refers to substrings matched
by the last match pattern.

=item *

The print() statement does not add field and record separators unless
you set C<$,> and C<$\>.  You can set $OFS and $ORS if you're using
the English module.

=item *

You must open your files before you print to them.

=item *

The range operator is "..", not comma.  The comma operator works as in
C.

=item *

The match operator is "=~", not "~".  ("~" is the one's complement
operator, as in C.)

=item *

The exponentiation operator is "**", not "^".  "^" is the XOR
operator, as in C.  (You know, one could get the feeling that B<awk> is
basically incompatible with C.)

=item *

The concatenation operator is ".", not the null string.  (Using the
null string would render C</pat/ /pat/> unparsable, because the third slash
would be interpreted as a division operator--the tokenizer is in fact
slightly context sensitive for operators like "/", "?", and ">".
And in fact, "." itself can be the beginning of a number.)

=item *

The C<next>, C<exit>, and C<continue> keywords work differently.

=item *

The following variables work differently:

Awk	Perl
      ARGC	scalar @ARGV (compare with $#ARGV)
      ARGV[0]	$0
      FILENAME	$ARGV
      FNR	$. - something
      FS	(whatever you like)
      NF	$#Fld, or some such
      NR	$.
      OFMT	$#
      OFS	$,
      ORS	$\
      RLENGTH	length($&)
      RS	$/
      RSTART	length($`)
      SUBSEP	$;

=item *

You cannot set $RS to a pattern, only a string.

=item *

When in doubt, run the B<awk> construct through B<a2p> and see what it
gives you.

=back

=head2 C/C++ Traps

Cerebral C and C++ programmers should take note of the following:

=over 4

=item *

Curly brackets are required on C<if>'s and C<while>'s.

=item *

You must use C<elsif> rather than C<else if>.

=item *

The C<break> and C<continue> keywords from C become in Perl C<last>
and C<next>, respectively.  Unlike in C, these do I<not> work within a
C<do { } while> construct.  See L<perlsyn/"Loop Control">.

=item *

The switch statement is called C<given>/C<when> and only available in
perl 5.10 or newer.  See L<perlsyn/"Switch Statements">.

=item *

Variables begin with "$", "@" or "%" in Perl.

=item *

Comments begin with "#", not "/*" or "//".  Perl may interpret C/C++
comments as division operators, unterminated regular expressions or
the defined-or operator.

=item *

You can't take the address of anything, although a similar operator
in Perl is the backslash, which creates a reference.

=item *

C<ARGV> must be capitalized.  C<$ARGV[0]> is C's C<argv[1]>, and C<argv[0]>
ends up in C<$0>.

=item *

System calls such as link(), unlink(), rename(), etc. return nonzero for
success, not 0. (system(), however, returns zero for success.)

=item *

Signal handlers deal with signal names, not numbers.  Use C<kill -l>
to find their names on your system.

=back

=head2 JavaScript Traps

Judicious JavaScript programmers should take note of the following:

=over 4

=item *

In Perl, binary C<+> is always addition.  C<$string1 + $string2> converts
both strings to numbers and then adds them.  To concatenate two strings,
use the C<.> operator.

=item *

The C<+> unary operator doesn't do anything in Perl.  It exists to avoid
syntactic ambiguities.

=item *

Unlike C<for...in>, Perl's C<for> (also spelled C<foreach>) does not allow
the left-hand side to be an arbitrary expression.  It must be a variable:

for my $variable (keys %hash) {
	...
   }

Furthermore, don't forget the C<keys> in there, as
C<foreach my $kv (%hash) {}> iterates over the keys and values, and is
generally not useful ($kv would be a key, then a value, and so on).

=item *

To iterate over the indices of an array, use C<foreach my $i (0 .. $#array)
{}>.  C<foreach my $v (@array) {}> iterates over the values.

=item *

Perl requires braces following C<if>, C<while>, C<foreach>, etc.

=item *

In Perl, C<else if> is spelled C<elsif>.

=item *

C<? :> has higher precedence than assignment.  In JavaScript, one can
write:

condition ? do_something() : variable = 3

and the variable is only assigned if the condition is false.  In Perl, you
need parentheses:

$condition ? do_something() : ($variable = 3);

Or just use C<if>.

=item *

Perl requires semicolons to separate statements.

=item *

Variables declared with C<my> only affect code I<after> the declaration.
You cannot write C<$x = 1; my $x;> and expect the first assignment to
affect the same variable.  It will instead assign to an C<$x> declared
previously in an outer scope, or to a global variable.

Note also that the variable is not visible until the following
I<statement>.  This means that in C<my $x = 1 + $x> the second $x refers
to one declared previously.

=item *

C<my> variables are scoped to the current block, not to the current
function.  If you write C<{my $x;} $x;>, the second C<$x> does not refer to
the one declared inside the block.

=item *

An object's members cannot be made accessible as variables.  The closest
Perl equivalent to C<with(object) { method() }> is C<for>, which can alias
C<$_> to the object:

for ($object) {
	$_->method;
    }

=item *

The object or class on which a method is called is passed as one of the
method's arguments, not as a separate C<this> value.

=back

=head2 Sed Traps

Seasoned B<sed> programmers should take note of the following:

=over 4

=item *

A Perl program executes only once, not once for each input line.  You can
do an implicit loop with C<-n> or C<-p>.

=item *

Backreferences in substitutions use "$" rather than "\".

=item *

The pattern matching metacharacters "(", ")", and "|" do not have backslashes
in front.

=item *

The range operator is C<...>, rather than comma.

=back

=head2 Shell Traps

Sharp shell programmers should take note of the following:

=over 4

=item *

The backtick operator does variable interpolation without regard to
the presence of single quotes in the command.

=item *

The backtick operator does no translation of the return value, unlike B<csh>.

=item *

Shells (especially B<csh>) do several levels of substitution on each
command line.  Perl does substitution in only certain constructs
such as double quotes, backticks, angle brackets, and search patterns.

=item *

Shells interpret scripts a little bit at a time.  Perl compiles the
entire program before executing it (except for C<BEGIN> blocks, which
execute at compile time).

=item *

The arguments are available via @ARGV, not $1, $2, etc.

=item *

The environment is not automatically made available as separate scalar
variables.

=item *

The shell's C<test> uses "=", "!=", "<" etc for string comparisons and "-eq",
"-ne", "-lt" etc for numeric comparisons. This is the reverse of Perl, which
uses C<eq>, C<ne>, C<lt> for string comparisons, and C<==>, C<!=> C<< < >> etc
for numeric comparisons.

=back

=head2 Perl Traps

Practicing Perl Programmers should take note of the following:

=over 4

=item *

Remember that many operations behave differently in a list
context than they do in a scalar one.  See L<perldata> for details.

=item *

Avoid barewords if you can, especially all lowercase ones.
You can't tell by just looking at it whether a bareword is
a function or a string.  By using quotes on strings and
parentheses on function calls, you won't ever get them confused.

=item *

You cannot discern from mere inspection which builtins
are unary operators (like chop() and chdir())
and which are list operators (like print() and unlink()).
(Unless prototyped, user-defined subroutines can B<only> be list
operators, never unary ones.)  See L<perlop> and L<perlsub>.

=item *

People have a hard time remembering that some functions
default to $_, or @ARGV, or whatever, but that others which
you might expect to do not.

=item *

The <FH> construct is not the name of the filehandle, it is a readline
operation on that handle.  The data read is assigned to $_ only if the
file read is the sole condition in a while loop:

while (<FH>)      { }
    while (defined($_ = <FH>)) { }..
    <FH>;  # data discarded!

=item *

Remember not to use C<=> when you need C<=~>;
these two constructs are quite different:

$x =  /foo/;
    $x =~ /foo/;

=item *

The C<do {}> construct isn't a real loop that you can use
loop control on.

=item *

Use C<my()> for local variables whenever you can get away with
it (but see L<perlform> for where you can't).
Using C<local()> actually gives a local value to a global
variable, which leaves you open to unforeseen side-effects
of dynamic scoping.

=item *

If you localize an exported variable in a module, its exported value will
not change.  The local name becomes an alias to a new value but the
external name is still an alias for the original.

=back

As always, if any of these are ever officially declared as bugs,
they'll be fixed and removed.