[már értem] scripting, awk, perl, a2p nem értem

a) a legrondább, bash / ksh:

IFS=:
set -o noglob
a=( $(cat /etc/passwd) ) # ksh esetén: set -A a $(< /etc/passwd )
set +o noglob
echo $(( ${#a[*]} - 1 ))

Ezzel semmi bajom nincs, egyszerű, mint a faék. Viszont a következővel már igen.

b) awk (ez a passwd-vel jól működik, ellenben ha a fájl utolsó karaktere egy : (amit nem követ ENTER!), akkor elszámolja magát)

awk 'BEGIN { RS=":" } END { print NR - 1 }' /etc/passwd

No és amit nem értek. Odaadtam ezt a szösszenetet a perl-hez tartozó awk-to-perl fordítónak (a2p). Ezt kaptam:

$ echo 'BEGIN { RS=":" } END { print NR - 1 }' | a2p
#!/usr/local/bin/perl
eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches

$, = ' '; # set output field separator
$\ = "\n"; # set output record separator

$/ = ':';

print $. - 1;

$

Ezt kigyomláltam, ami lényegében azt jelenti, hogy az utolsó 3 sorra van szükségem. (A bemeneti rekordszeparátor beállításánál lecseréltem az aposztrófot idézőjelre, hogy parancssorból kényelmesebb legyen beírni, de az eredeti verzióval ugyanaz a bajom.) Kipróbáltam, és nem jó.????

$ perl -e '$\ = "\n" ; $/ = ":" ; print $. - 1;' /etc/passwd
-1

Valaki meg tudja magyarázni? Annyival jobb a helyzet, hogy képes voltam gatyába rázni:

$ perl -e '$\ = "\n" ; $/ = ":" ; while (<>) { ; } print $. - 1;' /etc/passwd

De az a2p-nek nem hibátlanul kéne működnie?